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Ces livres de poche n’ont pas la prétention de 
livrer le secret des grandes applications informd- 
tiques, mais bien de mettre à la disposition des 
utilisateurs des petits programmes tout prêts qui 
leur permettront de résoudre de nombreux pro- 
blèmes de la vie quotidienne. La Boîte à Outils 
pour TI-99/4A vous permettra d'élaborer des 
dessins cubiques, d'agrandir un caractère, de 
transformer l'ordinateur en prof de maths, de tra- 
cer une ellipse… 

Format : 11,5x 18 - 128 pages - 35,00 FF / 
250 FB / 12,20 FS 

Port : 10 FF / 50 FB / 1,50 FS. 


102 PROGRAMMES POUR 
LB LIL TAN par Jacques Deconchat 


Apprendre en se distrayant, tel est l'objectif de 
ce livre. Ces 102 programmes, classés par niveau 
vous permettront de découvrir l'ordinateur indi- 
viduel TI-99/4A et d'acquérir progressivement 
des connaissances nouvelles et Uüne plus grande 
maîtrise du Basic. La description des jeux propo- 
sés (jeu de l’oie aléatoire, saute-mouton, dé tru- 
2 mastermind, échiquier, pendu...) est suivie 
lun programme commenté et d'un exemple 
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Format : 25x 17 - 240 pages - 110,00 FF / 
850 FB / 34,60 FS. 
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DU TI-99/4A 


par Frédéric Lévy et Dominique Schraen 

Une approche progressive et attrayante pour les 
débutants qui veulent apprendre la programma- 
tion en Basic du TI-99/4A. Ils commenceront par 
apprendre les instructions classiques du Basic tel- 
les qu’elles existent sur le TI-99/4A. Ils découvri- 
ront ensuite les possibilités graphiques et musi- 
cales-de cet ordinateur grâce à de nombreux 
exemples et exercices. 

Format 14,5 x 21 - 144 pages - 90 FF / 
695 FB / 28,40 FS. 


EXERCICES POUR TI-99/4A 


par Frédéric Lévy 

Ce livre est destiné à tous ceux qui connaissent 
les instructions Basic du TI-99/4A et qui ne maï- 
trisent pas encore la programmation. Ce recueil 
d'exercices est une invitation à l'analyse et à la 
programmation de problèmes simples et fréquem- 
ment rencontrés (calculs, tris, traitement de 
texte). L'énoncé de chaque exercice est suivi 
de son analyse, une ou deux solutions commen- 
tées sont proposées. 

Format 14,5 x 21 - 144 pages - 90 FF / 
695 FB / 28,40 FS. 
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JEUX, TRUCS ET COMPTES 
POUR TI-99/4A 


par Michel Benelfoul. 

Que programmer ? Comment ? Pour quoi 
faire 2... « Jeux, trucs et comptes pour TI-99/4A » 
propose aux novices de la programmation 30 
po en Tl-Basic commentés et décrits à 
‘aide d’un exemple d'exécution et d’un organi- 
gramme. Fonctions Tl-Basic, jeux passifs et inter- 
actifs, interludes, « trucs », paie, facturation sim- 
ple et routines, l’ensemble de ce recueil très varié 
leur permettra d'utiliser au mieux toutes les fonc- 
tions de leur TI-99/4A. 

Format 17 x 25 - 176 pages - 90 FF / 695 FB / 
28,40 FS. 


LE TI-99/4A A l'AFFICHE 


par Jean-Francois Sehan 

Cet ouvrage, qui s'adresse aux possesseurs de 
TI-99/4A, regroupe 20 programmes à caractère 
utile, familial ou ludique. Du papier peint à la cui- 
sine en passant par le Baccara et la fête foraine, 
chaque programme est accompagné d’un orga- 
nigramme, d’une liste de variables et d’une expli- 
cation de chaque ligne Basic, pour l'adaptation 
éventuelle à d’autres ordinateurs. 

Format 17 x 25 - 144 pages - 90 FF / 
695,00 FB / 28,40 FS. 
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Des cassettes pour le TI-99/4A 


Les programmes dont nous dispo- 
sions pour réaliser la cassette E 
n'étaient pas de grande qualité; 
nous avons donc préféré nous abste- 
nir plutôt que vous proposer une 
cassette médiocre. 


Vous êtes nombreux à nous avoir 
demandé, par courrier ou lors des 
derniers salons, d'éditer des disquet- 
tes correspondantes aux programmes 
en Assembleur publiés dans la revue. 
Comme vos désirs sont des ordres, 
nous vous proposons en plus de la 
disquette « Mastermind » du numéro 
3, une disquette « Routines graphi- 
ques » et une disquette « Désassem- 
bleur ». 


Les cassettes À, B, C, Det E sont 
toujours disponibles, et vous trouve- 
rez ci-dessous un rapide rappel des 
programmes. 


Cassette 99A 


Basic TI : 
Electronique 
Mineur 


Basic Etendu : 
Prêt 


Cassette 99B 


Basic TI : 
Yathzee 
Division 

Basic Etendu : 
Chardef 


Cassette 99C 


Basic TI : 
Division 

Course 

Basic Etendu : 
Dames 


(2 )macaze 


Nim 
Isola 
Schmoo 


Cassette 99D 


Basic TI : 
Caractérologie 
Car driver 
Cannibales 
Basic Etendu : 
Conjugaisons 
Poker 


Cassette 99E 


Basic TI : 

Mic-Math 

Course de chevaux 
Jeu de poursuite 

Jeu de dés 

Basic Etendu : 
Guerre atomique 
Course en ligne droite 


BON DE COMMANDE 


Je désire recevoir la cassette 


[_] 99 A : Mineur, Prêt, Electronique 


[_] 99 B : Yahtzee, Chardef, Division, Régression linéaire 
[_] 99 C : Dames, Nim, Division 2, Isola, Schmoo, Robots 


[_] 99 D : Conjugaisons, Caractérologie, Car driver, Poker, Cannibales 
[] 99 E : Mic-Math, Course de chevaux, Jeu de poursuite, Jeu de dés, 
Guerre atomique, Course en ligne droite 


[] Disquette « Mastermind » (cf. 99 Magazine n° 3) 
[_] Disquette « Routines graphiques » (cf. 99 Magazine n° 4 et 5) 
[_] Disquette « Désassembleur » (cf. 99 Magazine n° 5) 


Ces tarifs comprennent l'envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : + 10 F 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 64-70, rue des Chantiers - 78000 Versailles 
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Editorial 


"99 magazine” a maintenant un an et, malgré les quelques ‘cafouillages” inévitables de nos débuts, il 
se porte bien. 

La réorganisation de la rédaction, survenue juste après la parution du numéro 2, nous permet de vous 
proposer une revue susceptible d'intéresser tous les utilisateurs du TI-99/4A, du moins nous l'espérons. 


Vous êtes encore nombreux à nous demander si nous continuerons à publier ‘99 Magazine”. Vous 
devez donc savoir que la revue existera jusqu'à ce que nous n'avons plus assez de lecteurs, ce qui est 
loin d'être le cas puisque vous êtes toujours plus nombreux à nous lire. Alors, abonnez-vous ! 


Dans ce numéro, encore très riche, Julien Thomas poursuit sa série d'articles sur les particularités du 
basic Etendu avec, cette fois, les opérateurs logiques. Dans le même registre, Gilles Laurence vous 
propose un programme de conversion hexadécimal / binaire / décimal et, par la même occasion, passe 
en revue les différents systèmes de numération utilisés en informatique. 


Gérard Santraille analyse la stucture des disques en Pascal et, en compagnie de Jean-Luc Bazane- 
gue, ajoute une nouvelle routine graphique à votre TI. Jean-Luc à aussi écrit pour vous un désassem- 
bleur qui, s’il avait été commercialisé par Texas Instruments, vous aurait certainement coûté le prix d'un 
abonnement avec cassettes. 


Denise Amrouche met à votre disposition deux programmes permettant de faire des copies d'écran 
sur imprimante, pendant que Roger Didi vous propose un nouvel article d'initiation au Basic. 


Vous pourrez transformer votre TI en poète grâce a Philippe Misandeau qui vous présente un pro- 
gramme original, d'une façon non moins originale. Le programme "Systèmes linéaires”, écrit par Alain 
dupont, démontre que notre ordinateur est une excellente machine de calcul pendant que Gerbert 
Cinquet présente deux ‘jeu de la vie”: le premier est en Basic et le second en Assembleur. 


"Trouvez le bon mot” est un programme dérivé du Mastermind et écrit par Marianne Sutz, qui s’est 
aussi chargé de la rubrique ‘’programmathèque”. Edouard Krok et Daniel Masse apportent à nou- 
veau leur contribution sous la forme des programmes ‘’Warangal” et ‘Les tours de Hanoï”. Georges 
Herbepin nous propose lui aussi un très bon programme de jeu intitulé "Le trésor de l'Armada” 


Nous avons cette fois deux gagnants à notre petit jeux ‘À vous de programmer”: Christine Julien 
pour un programme en Pascal, et Georges Dejolier pour un programme en Basic Etendu baptisé 
"Translet”! 


Les réponses au courrier des lecteurs sont toujours assurées par Alexandre Duback, tandis que So- 
phie Ehster prend en main la rubrique "Bibliographie. 


Les amateurs de ‘hardware’ ne sont pas laissés pour compte puisqu'Eliane Dacquay vous donne la 
description du port d’entrées/sorties de notre cher appareil. Comme à l'accoutumée, vous trouverez 
aussi dans ce numéro de nombreux trucs et astuces. 


Nous vous souhaitons de bonnes vacances et vous donnons rendez-vous en Septembre, au Sicob. 


Hervé Thiriez 


Rédacteur en chef-Directeur de la publication : Hervé Thiriez. Comité de rédaction : Jean-Luc Bazanegue, 
Roger Didi, Gérard Santraille. Dessins : Laurent Bidot. Ont collaboré à ce numéro : Denise Amrouche, Gérard 
Baroni, Jean-Luc Bazanegue, Omar Belmokar, Gerbert Cinquet, Eliane Dacquay, Georges Dejolier, Roger Didi, 
Alexandre Duback, Alain Dupont, Sophie Ehster, Georges Herbepin, Antoine Heudes, Christine Julien, Edouard 
Krok, Gilles Laurence, Jean Marlin, Daniel Masse, Philippe Misandeau, Gérard Santraille, Marianne Sutz, Julien 
Thomas, Pascal Thomas, Marc Roch-Vilato. 


Editions MEV - 64-70, rue des Chantiers - 78000 Versailles. 

Régie publicitaire : Force 7 - Anne Jourdan - 5, place du Colonel Fabien, 75010 Paris - Tél. : 240.22.01. 
Diffusion auprès des boutiques et librairies : PSI Diffusion, BP 86, 77402 Lagny-sur-Marne Cedex. 
Composition : Télécompo - 13-15, avenue du Petit Parc, 94300 Vincennes. 

Impression : Imprimerie Rosay - 47, avenue de Paris, 94300 Vincennes - Tél. : (1) 328.18.63. 





:):)MAGAZINE n°5 


Conversions 


Gilles Laurence 


Les différents systèmes de numéra- 
tion utilisés en informatique ne sont 
pas encore parfaitement maîtrisés par 
tous les lecteurs de "99 Magazine”. Il 
semblait donc nécessaire d'écrire un 
petit article expliquant comment 
fonctionnent ces systèmes, le pro- 
gramme de conversion décimal / 
hexadécimal / binaire en Basic TI 
listé ci-après n'étant qu’un prétexte. 


Le système décimal 
(base 10) 


D’aucuns se demanderont certaine- 
ment quelle est la raison qui nous 
pousse à vouloir expliquer un sys- 
tème de numération utilisé quotidien- 
nement depuis notre plus tendre en- 
fance. Ceci ne sera pas inutile car 
nous nous apercevrons que fous les 
systèmes de numération fonctionnent 
de la même façon. 


Prenons un nombre exprimé en déci- 
mal, 147908 par exemple. Ce nom- 
bre doit être décomposé en tranches, 
et ce de la droite vers la gauche. 
Cela nous donne la série de chiffres 
8-0-9-7-4-1. Ici intervient 
quelque chose de fondamental: la 
notion de poids ou de rang. 

Par convention, les chiffres consti- 
tuant le nombre sont numérotés de 0 
à N, N étant le numéro du chiffre 
placé le plus à droite. Ces numéros 
représentent le poids ou rang des 
chiffres; dans notre exemple, ces 
rangs sont les suivants : 


: rang 0 (poids le plus faible) 

: rang 1 

: rang 2 

: rang 3 

: rang 4 

: rang 5 (poids le plus fort du nom- 
bre) 


Maintenant, pour obtenir la valeur 
réelle de notre nombre, il faut multi- 
plier chaque chiffre par la base (10) 
élevée à la puissance X, X étant le 
rang (ou poids) du chiffre considéré. 
L’addition des résultats de ces opéra- 
tions nous donne la valeur recher- 
chée. Reprenons notre exemple : 

e 8x(10 O0) = 8x1 = 8 (10 O est 
égal à 1) 

Ox(10 1) = 0x10 = 0 

9x(10 2) = 9x100 = 900 

7x(10 3) = 7*1000 = 7000 
4x(10 4) = 410000 =40000 
1x(10 5) = 1x100000 = 100000 


8 + 0 + 900 + 7000 + 40000 + 
100000 = 147908 


Nous retrouvons bien notre nombre. 


Le principe de lecture du nombre de 
la droite vers la gauche peut paraître 
curieux, mais il faut savoir que les 
systèmes de numération par ‘tran- 
ches” nous viennent des mathémati- 
ciens arabes qui, eux, écrivaient de 
droite à gauche 


Le système hexadécimal 
(base 16) 


En décimal, chaque position dans le 
nombre peut contenir les chiffres O, 
1,2, 3, 4, 5, 6, 7, 8 et 9. Lorsqu'on 
effectue une addition, si le résultat 
est supérieur à 9, il y a retenue au 
rang supérieur. Par exemple, si nous 
additionnons 8 et 4, la somme ne 
peut pas être représentée dans un 
seul rang et il y a une retenue : 


8 + 4 = 12 soit 2 au rang O et 1 au 
rang 1. 


En hexadécimal, le principe est exac- 
tement le même mais un rang peut 
contenir des valeurs comprises entre 
0 et 15 et les retenues n'apparaissent 
qu'à partir de 16. 

Comme on ne connaît habituelle- 
ment que 10 chiffres (0 à 9), les va- 
leurs 10 à 15 sont représentées par 
_ six premières lettres de l’alpha- 


AZ10, B—11, C-12, D-13, E-14 
et F=15. 


Ainsi, si l’on additionne 9 et 4 (en 
hexadécimal), nous obtenons D au 
rang 0 et aucune retenue puisque 
9+4 est égal à 13 en décimal, soit D 
en hexadécimal. Si nous addition- 
nons C et D, le résultat est 19 (atten- 
tion, nous ne sommes plus en déci- 
mal). Une petite explication est peut- 
être souhaitée : 


C est égal à 12 en décimal et D est 
égal à 13; le produit de l'addition est 
25, donc supérieur à 16, d'où la né- 
cessité de prendre une retenue en 
compte; 

nous allons décomposer le nombre 
que l’on ajoute à C, soit D=13 en 
décimal, en deux parties, dont l’une 
correspond à la valeur qu'il faut 
ajouter à C (12 en décimal) pour ar- 
river à 16 et l’autre à la différence 
entre D et cette valeur; 

en ajoutant 4 à 12, on obtient 16, 
soit 10 en hexadécimal (1x(16 1) + 
0x(16 0)). Sur le nombre 13 que 
nous devions ajouter, il nous reste 
donc 9. Le résultat final de l’opéra- 
tion vaut par conséquent 10+9 = 19 
en héxadécimal. 


En résumé : C + D = 12 + 13 


12 +4 +9 = (12 + 4) + 9 = 16 + 
9 en décimal = (1x16) + 9 en déci- 
mal = 19 en hexadécimal (1 dans le 
chiffre des ’seizaines”’ et 9 dans le 
chiffre des unités). 


Essayons maintenant de convertir le 
nombre F8B2 (hexadécimal) en son 
équivalent en base 10: 

e F est au rang 3, ce qui nous 
donne 15x(16 3) = 15x4096 = 
61440; 

e 8 est au rang 2, 8*(16 2) 
8*x256 = 2048 

e B est au rang dl, 
11x16 = 176; 

e 2 est au rang 2, 2x(16 0) = 2*1 

= 2. 


11x(16 1) = 


Si l’on additionne les résultats de ces 
quatre opérations, on obtient 61440 
+ 2048 + 176 + 2 soit 63666, par 
conséquent, F8B2 est égal à 63666 
en décimal. 


Le système binaire 
(Base 2) 


Le système de numération en base 2 
est le seul qui soit reconnu par les 
microprocesseurs. En fait, si nous al- 
lions un peu plus loin, nous nous 
apercevrions qu’un tel circuit ne peut 
utiliser que des différences de poten- 
tiel, mais là n’est pas le propos de 
cet article. 


Un petit problème : que font 1 et 1 
en binaire ? Ceux qui ont répondu 2 
se sont trompés. En effet, si les rete- 
nues n'apparaissent qu’à partir de 10 
en décimal et 16 en hexadécimal, 
elles sont requises dès la valeur 2 en 
binaire, puisque les seuls chiffres utili- 
sables dans ce système sont 0 et 1. 
Les additions en binaire s'effectuent 
de la manière suivante : 


0+0 = O, pas de retenue; 

0+1 = 1, pas de retenue; 

1+1 = 0 avec retenue de 1; 
1+1+retenue = 1 avec retenue de 


a en binaire est donc égal à 10 
en décimal, à 1x(2 1) + 
Ox(2" 0) = 1x2 + Ox1 = 2. 


Pour faire la conversion d’un nombre 
en base 2 en son équivalent décimal, 
il suffit d'appliquer les règles utilisées 
pour les autres systèmes de numéra- 
tion. Prenons par exemple le nombre 
binaire 10101110 composé de 8 
chiffres appelés dans ce cas ”bits” 
(pour Binary digÎT soit élément bi- 
naire) : 


e rang 7 = 1, donc 1*(2° 7) = 128; 
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10101110 est éga 
32+0+8+4 


Le bit situé au rang 0 ne peut repré- 
senter que les valeurs 0 et 1. Cette 
particularité peut être utilisée pour 
déterminer si l’on a affaire à un nom- 
bre pair ou impair. 


+E 
N 0 
ren 
+R 


Le complément à deux 


Il y a deux manières d'utiliser les 
nombres exprimés en base 2 : en va- 
leur absolue (c’est le cas exposé au 
paragraphe précédent) ou en valeur 
signée. Cette dernière méthode per- 
met de faire la différence entre un 
nombre positif et un nombre négatif. 


Pour une utilisation correcte du 
complément à deux, il est indispen- 
sable de déterminer le nombre de 
bits utilisés pour la représentation du 
nombre. En général, la taille utilisée 
est l’octet (8 bits) ou le mot (16 bits). 
Nous retiendrons la dernière possibi- 
lité puisque le microprocesseur du 
TI-99 traite des mots de 16 bits. 
En complément à deux, le bit de 
poids fort (rang 15 pour un mot de 
16 bits) indique le signe du nombre : 
1 pour un nombre négatif et 0 
our un nombre positif. Ainsi, 
1000000000000001 est négatif alors 
que 0000000000000001 est positif. 


Pour obtenir la représentation en 
complément à deux d’un nombre 
négatif, il faut d’abord convertir la 
valeur absolue de ce nombre en bi- 
naire. Par exemple, la valeur déci- 
male —3840 devient 3840, soit en 
binaire 0000111100000000 (2048 + 
1024 + 512 +256). Ensuite, deux 
étapes doivent être respectées : 


1) le complément à un 


Cette opération est extrêmement 
simple à réaliser, il suffit de savoir 
que le complément à un de 1 est O 
et le complément à un de O est 1. 
Cela revient en fait à inverser la va- 
leur de tous les bits constituant le 
nombre binaire à traiter : le nombre 
0000111100000000 devient, en 
complément à un, 11110000111111 
8 à 


2) ajout de 1 au résultat précé- 
dent 

Pour obtenir le complément à deux 
du nombre il faut maintenant ajouter 


100 REM XXXXXXXXXEXAXKAREXXXX 
x 
120 REM * deci/binaire/hexa % 
130 REM XXXXX#XXKXKAEXARERXEREX 


110 REM * CONVERSI ONS 
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1 (0000000000000001 en binaire) 
au complément à un. Si vous vous 
souvenez des règles utilisées pour les 
additions en binaire (paragraphe pré- 
cédent), cette opération ne présente 
pas de difficulté. Sinon, le schéma 
suivant peut certainement vous éclai- 
rer : 


TA 00001 
+ 0000000000 


11140000 


Le complément à deux de 
00001111000000000 (2048 + 1024 
+ 512 + 256 = 3840) est donc 
1111000100000000 ou, en décimal, 
16384 + 8192 + 4096 + 256 = 
—28928 (le bit 15 est à 1, donc la 
valeur est négative et seuls les bits O 
à 14 sont pris en compte pour la re- 
présentation du nombre). 


Nous pouvons noter au passage 
qu'un nombre binaire de 16 bits 
peut représenter, en valeur absolue, 
toutes les valeurs comprises entre 0 
et 65535 (2 16-1), alors qu’en 
complément à deux les valeurs possi- 
bles sont comprises entre —32768 et 
32767 (2.15 —1). 


Octal (base 8) et 
Décimal codé binaire 


Ces deux systèmes de numération ne 
sont pas utilisés sur le TI-99 mais, 
comme nous parlons des différents 
modes de représentation des nom- 
bres, autant passer ceux-ci en revue. 


L’octal 


Ce type de numération était autrefois 
fréquemment utilisé en informatique, 
surtout sur les gros systèmes, mais il 
a actuellement tendance à disparaf- 
tre. 

La base employée est 8; il y a donc 
retenue seulement à partir de 8 et les 
chiffres utilisés sont 0, 1, 2, 3, 4 5 6 
et 7. Les règles sont les mêmes que 
pour les autres systèmes de numéra- 
tion. 


Le décimal codé binaire 


(DCB) 


Ce système est très pratique lorsque 
l'on veut effectuer des opérations sur 


140 REM * 


160 REM 


170 CALL CLEAR 


des valeurs décimales, mais en bi- 
naire. Pour cela, chaque chiffre utilisé 
en décimal est codé en binaire sur 4 
bits (quartet). Les codes sont les sui- 


La conversion décimal / DCB s’effec- 
tue très facilement puisque, par 
exemple, 1234 en décimal devient 
0001 0010 0011 0100 en décimal 
codé binaire. 


Le programme 


Ce programme de conversion est 
écrit en Basic TI mais il fonctionne 
aussi en Basic Etendu, où les résul- 
tats sont obtenus un peu plus rapide- 
ment. Pour entrer un nombre à 
convertir, il suffit d'indiquer au pro- 
gramme le système de numération 
employé, par exemple en appuyant 
sur la touche ”’B” pour un nombre 
binaire. Vous pouvez alors entrer 
votre nombre. 


Djécimal 


Les nombres décimaux doivent être 
compris entre —32768 et 65535; si 
tel n’est pas le cas, le nombre est re- 
jeté. Le programme vous donne 
l'équivalent de la valeur en hexadéci- 
mal et en binaire sur 16 bits. 


H)exadécimal 


Seuls les caractères 0 à9et AàF 
sont autorisés. Il est possible de 
communiquer au programme tout 
nombre hexadécimal compris entre 
0000 et FFFF. Vous obtenez Île résul- 
tat de la conversion en binaire sur 16 
bits et en décimal. Si nécessaire, la 
valeur en complément à deux sera 
aussi fournie (sur 8 bits si cela est 
possible, sinon sur 16 bits). 


Bjinaire 


Seuls les chiffres O et 1 sont valides 
et le programme accepte jusqu’à 16 
bits. Les valeurs en hexadécimal et 
en décimal sont affichées ainsi que, si 
nécessaire, le complément à deux du 
nombre. 


Basic TI * 


150 REM XXXX#XEXERREREREMEEEXE 





180 CALL SCREEN(8) 

190 DIM B$(15) 

200 FOR E=0 TO 15 

210 READ B$(B) 

220 NEXT B 

230 P$=" XHXAEEAEEEREEREXERLEELXEREX" 

240 PRINT P$:TAB{10);"CONVERSIONS":" deci 
mal/binaire/hexadecimal":P#: : 

250 PRINT * Blinaire Decimal":" 
H)exadecimal Arret" de 9 EN Es A 


260 DATA 0000,0001,0010,0011,0100,0101,01 
10,0111,1000,1001,1010,1011,1100,1101 ,1 
110,1111 
270 DE$="Decimal : * 
280 HE$="Hexadecimal : )" 
290 BIN$="Binaire : " 
300 VAS$="valeur abs" 
310 C2$="compl. a 2* 
320 REM 
330 REM saisie base depart 
340 REM 
350 CR=0 
360 CALL KEY(O0,K,S) 
370 ]1F S THEN 470 
380 CR=CR+1 
390 IF CR<3 THEN 360 
400 IF DR THEN 440 
410 DR=i 
420 CALL HCHAR(9,4,95) 
430 GOTO 350 
440 DR=0 
450 CALL HCHAR(9,4,32) 
460 GOTO 350 
470 IF K=65 THEN 3100 
480 IF K=é6é6 THEN 1110 
490 IF K=72 THEN 2030 
900 IF K{)68 THEN 360 
910 REM 
920 REM saisie nombre decimal 
REM 
T$=DES 
L=9 


C=4 

GOSUB 2870 

CSs="" 

FOR C=i4 TO 19 
CR=0 

CALL KEY(0,K,S) 

IF S=1 THEN 730 
CR=CR+1 

IF CR(3 THEN 610 
IF DR THEN 690 
DR=1 

CALL HCHAR(L,C,95) 
GOTO 600 

DR=0 

CALL HCHAR(L,C,32) 
GOTO 600 


IF Si THEN 630 

IF K=13 THEN 800 

IF K<)45 THEN 760 

IF C=i4 THEN 770 

IF (K(48)+(K>57)THEN éi0 
CALL HCHAR(L,C,K) 
C=CH&CHRS(K) 
NEXT C 

IF C=i4 THEN 5&0 
N=VAL (CS ) 

IF (N)>-32769)*x*(N<(6S5SS536) THEN 860 
CALL SOUND(5,1000,0) 
CALL HCHAR(L,14,32,6) 
GOTO 580 
T$=C$£&" " 

C=14 

GOSUB 2870 

IF N>-1 THEN 910 
NEN+é5536 

GOSUB 2730 

GOSUB 2610 
NEVAL(CS) 

IF (N)256)+(N<-255)THEN 980 
H$=SEGS(H$,3,2) 
BI$=SEG$(BI$,9,8) 

GOTO 990 
BI$S=SEGS(BI$,1,8)&" "&SEGS(BI$,9,8) 
T$S=HESLHS 

L=ii 

C=4 

GOSUB 2870 

T$=BINSEBIS 

L=i3 

GOSUB 2870 

GOSUB 2960 

GOTO 380 

REM 

REM saisie nombre binaire 
REM 

T$=BINS 

L=9 

C=4 

‘GOSUB 2870 

C PL | 

FOR C=i4 TO 29 

CR=0 

CALL KEY(0,K,S) 

IF S=1i THEN 1290 
CR=CR+1 

IF CR<3 THEN 1180 

IF DR THEN 1260 

DR=1 

CALL HCHAR(L,C,95) 

GOTO 1170 

DR=0 

CALL HCHAR(L,C,32) 

GOTO 1170 

IF K=13 THEN 1340 

IF (K<{48)+(K)>49)THEN 1180 
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CALL HCHAR(L,C,K) GOSUB 2870 
C$=CH&CHRS(K) T$=STRE(N) 

NEXT C C=31-LEN(T#) 

IF C=i4 THEN 1150 GOSUB 2870 
LO=LEN(C$)+1 GOTO 1980 

FOR B=LO TO 16 T$=DES£&STRS (ND) 
C$="0"£&CcS L=13 

NEXT B GOSUB 2870 
T$=SEGS(C$,1,8)8&" "&SEGS(C$,9,8) GOSUB 2960 

C=14 GOTO 380 

GOSUB 2870 REM 

GOSUB 2520 REM saisie nombre hexadecimal 
ND=N REM 

GOSUB 2730 T$=HES 

IF ND>255 THEN 1750 L=9 
H$=SEGS(H$,3,2) C=4 

T$=HES£HS : GOSUB 2870 

L=i1 C$="" 

C=4 FOR C=19 TO 22 
GOSUB 2870 CR=0 

REM CALL KEY{0,K,S) 
REM partie commune IF S=1 THEN 2210 
REM hexa/binaire CR=CR+1 

REM IF CR<3 THEN 2100 
IF ND<128 THEN 1710 IF DR THEN 2180 
N=ND-256 DR=1 

T$=DESRVAS CALL HCHAR(L,C,95) 
L=13 GOTO 2090 

GOSUB 2870 DR=0 

T$=STRS$ (ND) CALL HCHAR(L,C,32) 
C=30-LEN(TS) GOTO 2090 

GOSUB 2870 IF K=13 THEN 2260 
T$=C2$ IF (K{48)+(K)257)x(K<65)+(K)70) THEN 2 
L=i4 . 

C=14 CALL HCHAR(L,C,K) 
GOSUB 2870 C$=CHECHRE(K) 
T$=STRS(N) NEXT C 
C=30-LEN(T$) IF C=19 THEN 2070 
GOSUB 2870 LO=LEN(CS) +1 

GOTO 1980 FOR B=LO TO 4 
T$=DES£ESTRS (ND) C$="0"4&Cc$ 

L=13 NEXT B 

GOSUB 2870 T$=C$&" " 

GOTO 1980 C=19 

T$=HESLHS GOSUB 2870 

L=i1 H$=C$ 

C=4 GOSUB 2610 

GOSUB 2870 C$=B1$ 

IF ND<{32768 THEN 1950 GOSUB 2520 
N=ND-6553é6 IF (N)256)+(N(-255)THEN 2410 
T$=DESLUAS BI$=SEG$(B1$,9,8) 
L=13 GOTO 2420 

GOSUB 2870 BI$=SEGS(B1$,1,8)&" "&SEGS(B1$,9,8) 
T$=STRS (ND) TS=BINSEBIS 
C=31-LEN(TS$) L=i1 

GOSUB 2870 C=4 

T$=C2$ GOSUB 2870 

L=i4 ND=N 

C=14 IF ND)>255 THEN 1790 
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2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 


GOTO 1550 

REM 

REM SP binaire-)>decimal 
REM 

N=0 

FOR B=15 TO O0 STEP -1 
IF SEG$(C$,16-B,1)="0" 
NEN+2°B 

NEXT B 

RETURN 

REM 

REM SP hexa-}>binaire 
REM 

B1$="" 

FOR B=i TO 4 
X=ASC(SEGS(H$,B,1)) 

IF X)57 THEN 2670 
BI$=BI$&BS(X-48) 

GOTO 2680 
BI$=BI$S&BS(X-55) 


GOTO 2820 
H$=HS&CHRS (NI +48) 

NEXT B 

RETURN 

REM 

REM SP “display at" 
REM 

PC=1 

FOR B=C TO C+LEN(T#)-i 
CALL HCHAR(L,B,ASC(SEGS(T$,PC,1))) 
PC=PC+1 

NEXT B 

RETURN 

REM 

REM SP “pour continuer" 
REM 

T$="<{ENTER) pour continuer..." 
C=4 

L=24 

GOSUB 2870 

CALL KEY(O,K,S) 

IF K()>13 THEN 3000 

FOR B=9 TO 14 

CALL HCHAR(B,4,32,27) 
NEXT B 

CALL HCHAR(24,4,32,27) 
RETURN 

REM 

REM arret programme 
REM 

CALL CLEAR 

END 


THEN 2560 


REM SP decimal-)hexa 
REM 

H$="" 

FOR B=3 TO 0 STEP -1 
X=2*(B*4) 
NI=INT(N/X) 

NEN-NI #X 

IF NI<10 THEN 2810 
H$=H$S&CHRS (NI +55) 


Ligne Li 
Ligne L2 


/ A!1 A12 A13 ! 
! 
! O0 B22 B23 ! 
1 
\ 0 ED E3 ! 


A14 \ 
! 
B24 ! 
1 
E34 / 


Systèmes linéaires 
Alain Dupont 


Ligne L3 


10 


Ce programme écrit en Basic TI 
permet la résolution d’un système de 
N équations linéaires à N inconnues. 
N est au plus égal à 10, mais il est 
facile d'étendre le programme à un 
nombre supérieur d'équations. 


Le principe 


On utilise ici la méthode du pivot de 
Gauss dont le fonctionnement est il- 
lustré sur l'exemple ci-dessous : 


soit à résoudre le système suivant 


A11.X1 + A12.X2 + A13.X3 = A14 
A21.X1 + A22.X2 + A23.X3 = A24 
A31.X1 + A32.X2 + A33.X3 = A34 


X1, X2, X3 sont les inconnues; les 
termes Aïÿ sont des coefficients. A 
partir de ce système, on construit un 
système équivalent, plus facile à ré- 
soudre : 


A11.X1 + A12.X2 + A13.X3 = Ai4 
B22.X2 + B23.X3 = B24 
C33.X3 = C34 


/ A11 A12 À13 ! AÏ4 \, 
! ! 


1 
\ A31 A32 A33 ! A34 / 


On a alors : 
X3 = C34/C33 
= (B24-B23.X3)/B22 
X1 = (A14—-A12.X2-A13.X3)/A11 


Tout le travail consiste à exprimer les 
coefficients Bij et Cij en fonction des 
Aïÿ. Le programme manipule des 
lignes de coefficients à partir du ta- 
bleau initial : 


Ligne Li 


A21 A22 A23 ! A24 | Ligne L2 
t 


Ligne L3 


Dans le but d'annuler B21 et C31, 
on réalise les manipulations suivan- 
tes : 

la ligne L2 est 
L2-—(A21/A11).L1; 
la ligne L3 est 
L3-(A31/A11).L1 
On dit qu’on utilise ici le pivot A11; 
on obtient alors le tableau : 


remplacée par 


remplacée par 


Pour annuler E32, la ligne L3 est 
remplacée par L3—-(E32/B22).L2; on 
utilise ici le pivot B22 et on obtient le 
tableau final : 


/ AIT AI2 A13 ! 
(] 

! 0 822 823 ! 
\ 0 0 ca 


En cas de pivot nul, on permute la 
ligne concernée avec la ligne sui- 
vante. Pour de plus amples informa- 
tions sur la méthode du pivot de 
Gauss, vous pouvez consulter un ou- 
vrage de mathématiques du niveau 
de la classe de terminale C. 


Ai4 \ 
1 
B24 ! 
L 
C34 / 


Le programme 


Il est écrit en Basic TI et occupe en- 
viron 10 Ko (voir 99 magazine” nu- 
méro 3, page 9 pour l'évaluation de 
la taille du programme). 
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Pour l'affichage, l'écran est rendu 
transparent (s.p. 3510) pendant le 
défilement vertical des caractères, 
puis redevient normal ensuite (s.p. 
3560). Les routines utilisées ont été 
placées en sous-programmes : 


2390: attente d'une pression sur 
une touche; 

2450 : temporisation: 

2490, 2520, 2590, 2690 : utilisa- 
tion de la ligne 24 à l’écran: 

2200 : permutation des lignes en cas 
de pivot nul. Il se peut que le pivot 
reste nul malgré tout; dans ce cas, on 
affecte la valeur 2 à la variable 
BLOC; dans le cas contraire, la va- 
leur 1. L'état de BLOC est testé 
après chaque exécution du sous-pro- 
gramme 2200. Si BLOC=2, cela si- 
gnifie que le système n'a pas de so- 
lution unique (il y en a une infinité 


2780 à 3450: série de sous-pro- 
grammes dont le rôle est de diagona- 
liser le tableau des coefficients 
comme indiqué précédemment dans 
le cas de 3 inconnues; 2780 corres- 
pond à l’utilisation du pivot All, 
2850 correspond à A22, et ainsi de 
suite; 
3610: solutions X1, 
KZ X 


calcul des 


inoNN 
3720 : affichage des solutions. 


La manipulation du tableau des coef- 
ficients ne commence qu’en ligne 
900. Auparavant, le TI-99 présente 
le programme, demande le nombre 
d'équations à résoudre, puis de- 
mande l'introduction des coefficients 
ligne par ligne (110 coefficients si 
vous voulez résoudre un système de 
10 équations à 10 inconnues !); ne 
pas oublier les coefficients nuls. 


difier tout coefficient si vous le dési- 
rez. La ligne 930 est d'une impor- 
tance capitale: elle dirige le 
programme en fonction du nombre 
d'équations à résoudre (940: 2 
équations, 1220 : 3 équations, etc. 
jusqu'à 2030 : 10 équations). 


En début de programme, on remar- 
quera plusieurs tableaux (ligne 130) : 
le tableau A(10,11) sert à stocker les 
coefficients; le tableau NA(11) sert de 
relais pour échanger deux lignes de 
coefficients: quant au tableau X(11), 
il sert à stocker les solutions. 


Ce programme vous impressionnera 
par sa puissance de calcul, et dé- 
montrera si besoin est que le TI-99 
peut être une machine de calcul effi- 
cace (essayez de résoudre un sys- 
tème vous-même et comparez votre 
temps de calcul avec celui de la 


ou aucune); Après chargement, vous pouvez mo- bête !). BF 
10 
20 
30 


40 


ASSET ETITISIIIS IIS IIS.) 410 GOSUB 
REM *% Systemes * 420 PRINT 
REM * Lineaires * : : 
REM #36 EEE EE XX 430 PRINT 
REM * Basic TI * : 
REM XXX#XXXXXREREEREREEEÉX 440 
REM : 
100 CALL CLEAR 450 PRINT " 
110 CALL SCREEN(13) 460 PRINT 
120 OPTION BASE 1 3 
130 DIM A(10,11) ,NA(11),X(11) 470 PRINT “introduire les coefficients": 
140 U=0 :"AIJ ligne par ligne": : : 

150 GOSUB 3510 480 GOSUB 3560 

160 GOSUB 2350 490 RETURN 

170 GOSUB 3560 500 GOSUB 2390 

180 GOSUB 2390 910 CALL CLEAR 

190 CALL CLEAR 520 FOR 1=i TON 

200 GOSUB 3510 930 FOR J=1 TO N+1 

210 GOSUB 3780 940 PRINT “introduisez 

220 GOSUB 3560 : 

230 GOSUB 2390 

240 CALL CLEAR 

250 GOSUB 3510 

260 GOSUB 3880 

270 GOSUB 3560 

280 GOSUB 2390 

290 GOSUB 400 

300 GOSUB 2390 

310 CALL CLEAR 

320 INPUT “nombre d’equations? ":N 

330 IF (N)>=2)#(N<{=10)THEN 510 ELSE 340 
340 CALL CLEAR 

350 PRINT “nombre non admis par le progra 
mme * 

360 FOR DEL=1 TO 500 

370 NEXT DEL 
380 CALL CLEAR 

390 GOTO 320 

400 CALL CLEAR - 


3510 
"le systeme est de la forme": 


"AIIXI+A12X2+.,.+AINXNEAI ,N+1": 


PRINT "A2I1X1+A22X2+,,+A2NXN=A2,N+1": 


“ANIXI+AN2X2+..+ANNXN=AN N+1* re 


“s'A";l;ds : 
350 
960 
570 
580 
590 


600 
610 


INPUT A(I,J) 

CALL CLEAR 

NEXT J 

NEXT 1! 

PRINT “introduction terminee" 
GOSUB 2450 

CALL CLEAR 

620 GOSUB 3510 

630 PRINT "voulez vous modifier des": :"c 
oefficients? CON)": 5 5 5 5 5 1: 
640 GOSUB 3560 

650 CALL SOUND(200,500,0) 

660 CALL SOUND(200,800 ,0) 

670 CALL KEY(O0,KK,SS) 

680 IF SS=0 THEN 670 

690 IF (KK{)>79)x(KK{278)THEN 670 
700 IF KK=79 THEN 710 ELSE 900 
710 GOSUB 2490 
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720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
*A" 
870 


GOSUB 2520 

GOSUB 2590 

CALL KEY(O,KI,S1) 

IF SI=0 THEN 740 
CALL HCHAR(24,18,K1) 
GOSUB 2450 

GOSUB 2490 

GOSUB 2520 

GOSUB 2690 

CALL KEY(0,KJ,SJ) 

IF SJ=0 THEN 810 
CALL HCHAR(24,18,KJ) 
GOSUB 2450 

CALL CLEAR 


PRINT "introduisez le coefficient": 
:KI-48;KJ-48: 


PRINT “valeur precedente: 


J-48) : 


880 
KJ-4 
890 


900 REM *resolution du systeme* 


910 
920 


640, 
940 
950 
960 
970 
780 
990 
1000 
1010 
1020 
1030 
1040 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


1050 


INPUT “nouvelle valeur :7 
8) 
GOTO 610 


CALL CLEAR 
PRINT “resolution en cours" 


930 ON N-1 GOTO 940,1220,1340, 1430, 1530, 1 


1760,1890,2030 

REM x2 squationse 
B=1 

GOSUB 2200 

IF BLOC=2 THEN 3940 
GOSUB 2780 

IF A(N,N)=0 THEN 3810 
GOSUB 3610 

GOSUB 3720 

GOSUB 2390 

CALL CLEAR 


PRINT “une autre resolution? (O/N) " 


CALL KEY(0,K,S) 
IF S=0 THEN 1060 


IF (K<>79)x{(K<)>78)THEN 1060 
IF K=79 THEN 1100 ELSE 2130 


CALL CLEAR 


PRINT “OK pour une autre resolution" 


CALL SOUND(500,700,0,900 ,1) 


FOR 1=1 TO 10 
FOR J=1 TO 11 
X(J)=0 
NA(J)=0 
A(I1,J)=0 

NEXT J 

NEXT 1 

CALL CLEAR 
GOTO 320 

REM *cas de 3 equations* 
GOSUB 1250 
GOTO 990 


CALL SOUND(500,700,0,900,1) 


B=1 

GOSUB 2200 

IF BLOC=2 THEN 3940 
GOSUB 2780 

B=2 

GOSUB 2200 

IF BLOC=2 THEN 3940 
GOSUB 2850 

RETURN 

REM * cas de 4 equations* 
GOSUB 1250 

GOSUB 1380 

GOTO 990 

B=3 

GOSUB 2200 

IF BLOC=2 THEN 3940 
GOSUB 2920 

RETURN 

REM *cas de 5 equations * 
GOSUB 1250 

GOSUB 1380 

GOSUB 1480 

GOTO 990 

B=4 

GOSUR 2200 

IF BLOC=2 THEN 3940 
GOSUB 3010 

RETURN 

REM *cas de 6 equationcs* 
GOSUB 1250 

GOSUB 1380 

GOSUB 1480 

GOSUB 1590 

GOTO 990 

B=5 

GOSUB 2200 

IF BLOC=2 THEN 3940 
GOSUB 3090 

RETURN 

REM *cas de 7 equations* 
GOSUB 1250 

GOSUB 1380 

GOSUB 1480 

GOSUB 1590 

GOSUB 1710 

GOTO 990 

B=é 

GOSUB 2200 

IF BLOC=2 THEN 3940 
GOSUB 3170 

RETURN 

REM *cas de 8 equationsx* 
GOSUB 1250 

GOSUB 1380 

GOSUB 1480 

GOSUB 1590 

GOSUB 1710 

GOSUB 1840 

GOTO 990 
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B=7 oursuivre" 
GOSUB 2200 2400 CALL SOUND(200,1000,0) 
IF BLOC=2 THEN 3940 2410 CALL KEY(0,K,S) 
GOSUB 3250 2420 IF S=0 THEN 2410 
RETURN 2430 RETURN 
REM *cas de 9 equations* 2440 REM xtemporisationx 
GOSUB 1250 2450 FOR M1 TO 200 
GOSUB 1380 2460 NEXT M 
GOSUB 1480 2470 RETURN 
GOSUB 1590 2480 REM *effacement de la ligne 24 de ]”’ 
GOSUB 1710 ecran 
GOSUB 1840 2490 CALL HCHAR(24,2,32,28) 
GOSUB 1980 2500 RETURN 
GOTO 990 2510 REM *"quelle" en ligne 24% 
B=8 2520 CALL HCHAR(24,2,ASC("q")) 
GOSUB 2200 2530 CALL HCHAR(24,3,ASC{"u")) 
IF BLOC=2 THEN 3940 | 2540 CALL HCHAR(24,4,ASC("e")) 
GOSUB 3330 2550 CALL HCHAR(24,5,4SC{"1"),2) 
RETURN 2560 CALL HCHAR(24,7,ASC{"e")) 
REM *cas de 10 equations* 2570 RETURN 
GOSUB 1250 2580 REM#'"ligne" en ligne 24% 
GOSUBR 1380 2590 CALL HCHAR(24,9,ASC("1")) 
GOSUB 1480 2600 CALL HCHAR(24,10,ASC{"i")) 
GOSUB 1590 2610 CALL HCHAR(24,11,ASC("g")) 
GOSUB 1710 2620 CALL HCHAR(24,12,ASC("n")) 
GOSUB 1840 2630 CALL HCHAR(24,13,ASC{"e")) 
GOSUB 1980 2640 CALL HCHAR(24,14,63) 
GOSUB 2140 2650 RETURN 
GOTO 990 2660 REM 
2670 REM 
2680 REM*"colonne" en ligne 24% 
GOSUB 2200 2690 CALL HCHAR(24,9,ASC{"c")) 
IF BLOC=2 THEN 3940 2700 CALL HCHAR(24,10 ,ASC("o")) 
GOSUB 3430 2710 CALL HCHAR(24,11,ASC{"1")) 
RETURN 2720 CALL HCHAR(24,12,ASC{"a")) 
REM* permute 2 equations en cas de p| 2730 CALL HCHAR(24,13,ASC("n"),2) 
nu 1% 2740 CALL HCHAR(24,15,ASC{"e")) 
IF A(B,B)()0 THEN 2310 2750 CALL HCHAR(24,16,63) 
U=U+ 1 2760 RETURN 
IF B+U(=N THEN 2250 2770 REMxannule les A(i,j) à partir de i= 
BLOC=2 2 * 
GOTO 2320 2780 FOR I=Z TON 
FOR J=1 TO N+1 2790 FOR J=2 TO N+1i 
NA(J)=A(B, J) 2800 ACI,J)=ACI ,J)-(AC1,1)/AC1,1))xAC1 ,J) 
A(B,J)=A(U+B,J) 2810 NEXT J 
A(U+B,J)=NA(J) 2820 A(I,1)=0 
NEXT J 2830 NEXT 1 
GOTO 2200 2840 RETURN 
BLOC=1 2850 FOR 1=3 TON 
U=0 2860 FOR J=3 TO N+i 
RETURN 2870 A(I,J)=A(I,J)-(A(1,2)/A(2,2))4A(2,J) 
REM * titre * 2880 NEXT J 
PRINT "resolution de": : 2890 A(I1,2)=0 
PRINT " systemes lineaires":| 2900 NEXT 1! 
f # à 2910 RETURN 
RETURN 2920 REM annule les ÀI3 à partir de I1=4 
REM *attente de la pression d’une to| 2930 FOR 1=4 TO N 
2940 FOR J=4 TO N+i 
PRINT “presser une touche pour": :"p| 2950 A(I,J)=A(I,J)-(A(1,3)/A(3,3))xA(3,J) 
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2960 
2970 
2980 
2990 
3000 


NEXT J 

A(1,3)=0 

NEXT I 

RETURN 

REM %xannule les À(1,4) a partir de 


I=5 * 


3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
=é + 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
=7* 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
=8x 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
* 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 


FOR 1=5 TON 

FOR J=5 TO Nt1 
A(I,J)=A(I,J)-(A(1,4)/ÀA(4,4))%xA(4,J) 
NEXT J 

A(1,4)=0 

NEXT 1 

RETURN 

REM #*annule ies À(1,5) à partir de 1 


FOR 1=6 TO N 

FOR J=é TO Nt1 
A(I,J)=ACI,J)-CA(1,5)/A(5,5))xA(5,J) 
NEXT J 

A(I1,5)=0 

NEXT 1] 

RETURN 

REM *annule les A(I,6( a partir de 1 


FOR 1=7 TON 

FOR J=7 TO Nt1 
A(I,J)=A(I,J)-(A(I,6)/A(6,6))xA(é,J) 
NEXT J 

A(1,6)=0 

NEXT 1 

RETURN 

REM #annule les À(1,7) à partir de 1 


FOR 1=8 TON 

FOR J=8 TO Nti 
A(I,J)=A(1,J)-(A(1,7)/A(7,7))%A(7,J) 
NEXT J 

A(1,7)=0 

NEXT 1 

RETURN 

REM *annule les A(I,8) depuis 1=9 * 
FOR 1=9 TON 

FOR J=9 TO Nti 
A(I1,J)=A(I,J)-(A(1,8)/A(8,8))xA(8,J) 
NEXT J 

A(1,8)=0 

NEXT 1! 

RETURN 

REM 

REM * annule les À(1,9) depuis 1=10 


REM 

FOR 1=10 TON 

FOR J=10 TO N#i 
ACI,J)=A(I,J)-(A(1,9)/A(9,9))xA(9,J) 
NEXT J 

A(1,9)=0 

NEXT 1 

RETURN 


3500 
3510 
3520 
3530 
3540 
39390 
3960 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 


REM * transparence 

FOR T=i TO 13 

CALL COLOR(T,13,13) 

NEXT T 

RETURN 

REM *retour des caracteres 

FOR T=i TO 13 

CALL COLOR(T,12,13) 

NEXT T 

RETURN 

REM*x calcul des solutions * 

X(N)=ACN,N+1)/AÛN,N) 

S=0 

FOR I=N-i1 TO i STEP -1i 

FOR J=I+1 TON 

S=A(I,J)xX(J)+5S 

NEXT J 

XCI)=(ACI,N+1)-S)/A(1,1) 

S=0 

NEXT 1] 

RETURN 

REM * affichage des solutions * 

CALL CLEAR 

FOR I=i TON 

PRINT "X"315"= ";X(I): 

NEXT 1 

RETURN 

REM *commentairesx 

PRINT "X1,X2,..XP,..XN sont": 

inconnues": : 

3790 PRINT "leur nombre est au plus egal” 
"a 10": 3 

3800 

3810 

3820 

3830 

3840 

3850 

3860 


"les 


RETURN 
IF ACN,N+1)<)>0 THEN 3850 
CALL CLEAR 
PRINT "systeme 
GOTO 1040 

CALL CLEAR 
PRINT "pas de solutions": 

3870 GOTQ 1040 

3880 REM *commentaire sur le type de syst 
eme resolu * 

3890 CALL CLEAR 

3900 PRINT " ce programme traite":"unique 
ment des systemes":"carres": : : 

37910 PRINT "c’est a dire qu’il 
utant d’equations que 


indetermine": 


y a à 
d’ inconnues" 
3920 PRINT : 

3930 RETURN 

3940 CALL CLEÂR 


3950 PRINT "ce systeme n’est pas carre 
eme s’il en donne l‘’impression": : : : 


M 


3960 PRINT "il possede soit zero soit U 
ne infinite de solutions": s'il n’e 
ntre pas dans les cas traites": : : 

3970 GOSUB 2390 

3980 GOTO 1030 
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Structure des disques du P-système 


Dans le dernier numéro, nous avons 
passé en revue la plupart des particu- 
larités du POS (Pascal Operating 
System). Nous allons étudier au- 
jourd’hui la structure des disquettes, 
et voir comment on peut lire et mo- 
difier certaines données du système, 
au moven des procédures 
BLOCKREAD, BLOCKWRITE, 
UNITREAD et UNITWRITE. 


La première constatation que l’on 
peut faire est que la sectorisation 
d’une disquette Pascal est différente 
de celle du ‘Disk Manager”. En effet, 
le catalogue d’une disquette Pascal la 
décrit comme un unique fichier de 
358 secteurs et de type ‘DIS- 
PLAY/FIXED 128”. 

En fait, une telle disquette est consti- 
tuée par 180 blocs de 512 octets, 
alors qu’elle est formée de 360 sec- 
teurs de 256 octets lorqu’elle est ini- 
tialisée par le ‘Disk Manager”. 


Le DOS (Disk Operating System : 
Ensemble de routines en Assembleur 
gérant les entrées/sorties des disques) 
du TI garde, en Basic, deux secteurs 
pour le répertoire (512 octets), alors 
que le POS manipule quatre blocs 
pour effectuer la même tâche (2 
Koctets soit 2048 octets). 


Remarque : en Pascal, si l'utilisateur 
le désire, il peut même demander au 
système de garder un double du ré- 
pertoire (en répondant Yes” à la 
question ‘’Duplicate Dir?” de la 
commande Zéro du Filer). Le POS 
remet alors à jour les deux répertoi- 
res (l’original et la copie) chaque fois 
qu’il manipule un fichier (notons au 
passage que toutes les versions du 
système UCSD n'offrent pas cette in- 
téressante particularité). Une  dis- 
quette comprenant un double catalo- 
que perd bien évidemment 2048 
octets de capacité de stockage. 


Avant de poursuivre, voyons rapide- 
ment comment utiliser un double ré- 
pertoire. 

Lorsqu'on écrit directement des don- 
nées sur un disque, au moyen des 
procédures UNITWRITE ou 
BLOCKWRITE, il peut arriver que 
lon écrase le répertoire de la dis- 
quette (qui se situe physiquement sur 
les blocs 2 à 5), cette mésaventure 
est relativement fréquente dès que 
lon manipule ’illégalement” certains 
blocs. Une copie du répertoire (qui, 
elle, se situe sur les blocs 6 à 9) est 
alors précieuse puisqu'il suffit d’exé- 
cuter l'utilitaire COPYDUPDIR pour 
rétablir la situation. 
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Gérard Santraille 
Listing 1 


Type date 
mois 1.123 
jour 1..31; 
annee: 0..99 
end; 


packed record 


fichtype (inconnu ,mauvais,code,texte,info, 


donnees ,graphique ,photo); 
diskKinfo record 
exti 
bloci 
diskKtype 
nom 


integer; 
integer ; 
integer ; 
stringl7]; 
blocs integer; 
nbrefich integer; 
ext2 integer; 
date_sys : date; 
ext3,ext4: integer 
end; 


record 
blocdeb 
prebloc 
categorie 
nom 
octlibre 
dermodi f 

end; 


fichier = 
integer; 
integer; 
fichtype;: 
stringl15]; 
integer; 
date 


record 
volume 
rep 

end; 


catalogue= 
disKinfo; 
array{1.77] of fichier 


Listing 2 
FROGRAM MODIFDOATE ; 


TYPE DÂTE=PACKED RECORD 
MOIS :1,.,12%; 
JOUR :1..31; 
ANNEE :0,..99 
END ; 


OCTET=0..255; 


REPERTOIRE=RECORD 
TAMPON1 : PACKED ARRAY(1..20]) OF OCTET; 
DATESYS:DATE ; 
TAMPONZ:PACKED ARRAYI1..490] 
END ; 


OF OCTET 


VAR  REP:REPERTOIRE; 


J:1..31; 


PROCEDURE ÀFFICHEDATE(DD:DATE) ; 
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Analysons le contenu d'une dis- | BEGIN 

quette. WITH DD DO 

Les deux premiers blocs (0 et 1) BEGIN 

contiennent un programme de lance- 

ment (en langage machine) et des WRITE( JOUR : 2) ; 

tables d’initialisation. Cette zone est WRITE(* ‘); 

cachée à l'utilisateur (qui ne s’en CASE MOIS OF 

a ce pus. À n'apparaît 1 :WRITE{ ‘ JANVIER" ) : 
pas lors de l’affichage du répertoire : j FR 
des fichiers. Ce programme est écrit Z:WRITEC' FEVRIER") ; 
durant le formattage de la disquette 3:WRITEC'MARS") ; 
(utilitaire DFORMAT) et est, par la 4 :WRITE{ AVRIL‘); 
suite, entièrement manipulé par le S:WRITEK( MAI‘); 


ni &:WRITE(/ JUIN‘) ; 

Les quatre blocs suivants contiennent 7:WRITEX JUILLET‘); 
donc le répertoire de la disquette, qui B:WRITE( AOÛT ‘ ) ; 

peut être également dupliqué dans ° à ; 
les quatre autres suivants. 7 :WRITEX * SEPTEMBRE") ; 
Une disquette à répertoire non dupli- 10 :WRITE{ ‘ OCTOBRE : ) ; 


qué offre donc 180 — 2 — 4 = 174 11 :WRITE( ‘NOVEMBRE: ) ; 
blocs à l’utilisateur (89088 octets). 12:WRITE{’ DECEMBRE ‘ ) 


Analysons maintenant la structure du END ; 
répertoire : WRITELN(* 19° ,ANNEE : 2) 
Voir listing 1 eu ; 


Remarques : 


e Si l’on évalue la taille du type ca- 
talogue (au moyen de la fonction BEGIN 
SIZEOF), on s'aperçoit qu'elle est 1 | 
de 2028 octets, et non pas de UNITREAD(4,REP,512,2); 
2048 (4 fois 256); il reste en effet WITH REP,DATESYS DO 
20 octets inutilisés. BEGIN 


En mettant en parallèle les décla- WRITE(’LA DATE SYSTEME EST LE ‘): 


rations des enregistrements ”dis- AFFICHEDATE(DATESYS) : 

kinfo” et ‘fichier’, on constate = en. 

qu'ils ont non seulement des WRITEL’JOUR (1..351) 7 ’,CHR(7)); 
champs de même nature, mais READLN(J) ; 

également un encombrement mé- JOUR :=J; 

moire identique (26 octets). Le PAGE OUTPUT ) ; 

type catalogue se présente alors e 

comme 78 enregistrements de 26 AFFICHEDATE(DATESYS) 
octets; le premier contenant des END ; 

informations sur le volume et les UNITWRITE(4,REP,512Z,2) 
77 suivants sur chaque fichier (on END 

notera au passage que 77 est le ‘ 

nombre maximal de fichiers pré- 

sents sur une même disquette). Listing 3 


Voyons plus en détail la signification Program DIR: 
et le rôle de chaque terme. À 


L'enregistrement ”’date” se passe de | t>pe date packed record 
commentaire. Notons simplement mois à : «12; 
qu'il s’agit d’une variable compactée AE es: À. 5 
et qu’elle n'occupe ainsi que 2 end: ne 
octets. d 
Fichtype” indique le type du fichier; ficht>ype (inconnu ,mauvais,code,texte,info, 
il s’agit d’un ensemble explicite dont donnees ,graphique ,photo) ; 

on reconnaît la plupart des éléments. 3 “ils 

Inconnu” ne se rencontre jamais car disKinfo=r + 

le système détruit automatiquement bi ee 

tout fichier non reconnu. disktype 
Mauvais” marque les blocs défec- nom 
tueux du disque (repérés par la blocs 
commande Bad Blocks du Filer). nbrefich 
"Texte Code” et Données” sont ext2 

bien connus. gaie ss 
Info” correspondra à des fichiers sd sext4 
temporaires du Debugger, quand il ; 

sera disponible. fichier record 

Enfin, ”Graphique” et Photo” sont blocdeb integer ; 
également des extensions futures. prebloc integer; 


date; 
integer 
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, 

L'enregistrement ‘’diskinfo” contient, cateaorie: 
comme son nom l'indique, diverses nom . 
informations propres à la disquette. actlibre 
"Extl”, "Ext2”, ”Ext3” et ”Ext4” éf De TOI f 
sont des extensions futures; ces qua- pin. 
tre entiers ne sont donc pas manipu- cataloqgue= record 
lés par le système. volume disKinfo:; 
’Blocl” indique quel est le premier rep array(1.. 77] of fichier 
bloc utilisable du disque (6 ou 10 end; 
a. a le répertoire est dupliqué da cl : catalogue: 
"disktype” ; | nadisk sNumerr ; li nteaer 

isktype est un entier toujours nu car:ch àr : 
sensé déterminer dans le futur le d 
De du ee (??). di r procedure icerreur{(num:integer); 
"Nom est bien entendu le nom du : | 
disque. begin 
"blocs ” est le nombre de blocs de ce | Writeln('Erreur de lecture‘); 


case num © 
Ne A te 1: write(’block endommage, parite erronee‘); 


L e L : write(‘mauvais numero de lecteur‘); 
présents et ’’date-sys” la date du sys- : write(’operation illegale‘); 
tème. : write(‘lecture stoppeë par {- 
: write(’lecteur non reconnu‘); 
: write(‘fichier inconnu‘); 
: write(‘nom incorrect"); 
: write(‘espace memoire insuffisant‘); 
: write(’volume inconnu‘); 
: write(‘fichier inconnu‘); 
: write(”’homonymie de fichi 
: write(‘fichier deja ouver 
li 


fichtype: 
strinol 183; 
integer ; 

ate 


‘utilisateur ‘); 


Nous verrons par la suite un petit 
programme permettant de modifier la 
date sans passer par le Filer. 


Voyons maintenant la structure de fi- 
chier. ’Blocdeb” est le numéro du 
bloc où commence le fichier, alors 
que ”’prebloc” indique le numéro du 
premier bloc suivant ce dernier. La 


| 
) . 
Î ; 
Î 
Î 
longueur d’un fichier vaut donc ”pre- . 
1; 
Î 
en 
t 
; 


Us, 
write{’fichier ferme‘): j 
(‘format de lecture Rs NS 3 


wWr 
me (‘debordement de tampon‘) 

volume protege contre l'‘ecriture‘): 
numero de ElGck TER" 3 | 


tampon illegal: 


bloc” — ”’blocdeb”. 

Categorie” indique le type de fi- 
chier, (pas son nom), ‘’dermodif” la 
date de la dernière mise à jour et | wri 
"’octlibre” le nombre d’octets non uti- | ©n 
lisés dans le dernier bloc du fichier 
(uniquement pour les fichiers de 


données). procedure aff_date(dd:date); 


Examinons enfin la structure du cata- begin 

logue. Elle se compose de 78 enre- with dd do 

gistrements; le premier de type ‘’dis- begin 

kinfo” et les 77 suivants de type write(jour 

fichier”. case mois 
liwrite( 

twrite(’F 


ite 
itet 
rite(* 
rite(” 
rite(* 


2 
ec) 
à 
GS: 
é 
7 
8 
$ 
0 
Î 
2 
3 
à 
s] 
é 
7 
8 
d 
e 


nichré7)) 


procedure aff_ fichier fich:ifichier);: 


Programmes 
d'application 


Modification de la date sans 
passer par le Filer 


Le programme que je vous propose 
lit le premier bloc du répertoire (on 
ne s'intéresse qu’à la date; il est donc 
inutile de le lire en entier), modifie la 
date (uniquement le jour) et écrit à 
nouveau ce bloc sur la disquette. 


AN © 000 NO NB EN 


FD 


ni siné- cé procedure aff_type(genre:fichtype); 
L'analyse du listing suscite plusieurs begin 
remarques : case genre 
1) comme on ne s'intéresse qu’à la Inconnu 
date, la structure complète du réper- for dd s 
toire n’a pas été explicitée : on s’est texte 
contenté de placer deux tampons; info 

2) la deuxième remarque complète la donnees 
première : le deuxième tampon est graphique 
obligatoire car la plus petite quantité hoto 

que le contrôleur sache manipuler, 

au moyen de UNITWRITE, est le 

bloc. Si l’on avait seulement lu et 


h 


write(’inconnu‘) 
write(mauvais*) 
write(’code’): 
write(’texte’); 
write(’info‘); 
write(’donnees’); 
write(’qraphique”); 
write(’photo’) 


ss sus ee © 
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écrit 22 octets (premier tampon et 
date) selon : 


UNITREAD(4,REP,22,2); 
UNITWRITE(4,REP,22,2); 


on aurait écrasé 490 octets du pre- 
mier bloc du répertoire (je le sais par 
expérience) et perdu l’accés à tous 
les fichiers. 


Rappelons à ce sujet l’utilisation des 
procédures UNITREAD, 
BLOCKREAD, UNITWRITE, 
BLOCKWRITE. 


*UNITWRITE / UNITREAD 


4 paramètres dans son utilisation 
classique : 
UNITREAD(n,var,long,dep) avec : 


n: numéro du périphérique (4, 5 ou 
9 pour un lecteur de disquettes); 

var : variable à lire; 

long: nombre d’octets à lire (long 
doit être égal à la taille de var); 

dep : numéro du bloc de départ si le 
périphérique est structuré. 


L'utilisation de UNITWRITE est en 
tout point identique si ce n’est que 
pour un lecteur de disquettes, long 
doit être un multiple de 512. 


*BLOCKREAD / BLOCKWRITE 


Il s’agit d’une fonction qui retourne 
le nombre de blocs effectivement 
transférés : 


n:=BLOCKREAD(fich, var,nbloc,dep) 


avec : 


n : nombre de blocs transférés; 

fich : nom du fichier d’où se fait le 
transfert (doit avoir été préalablement 
activé par l'instruction  RESET 
(fich,”.…”); 

var : variable lue; 

nbloc : nombre de blocs à transfé- 
rer; 

dep : bloc de départ. 


L'emploi de BLOCKREAD est identi- 
que en tout point. 


Si, dans le programme ”’date”, il était 
possible de remplacer UNITREAD 
par BLOCKREAD il est par contre 
impossible de substituer 

BLOCKWRITE à UNITWRITE. En 
effet l'emploi de BLOCKWRITE sup- 
pose que l’on ait ouvert le fichier par 
un ’RESET” et qu’on le ferme au 
moyen de CLOSEffich,lock). Or, 


begin {aff _ fichier} 
with fich do 
begin 


write(nom,’”’:15-lengthinom),prebloc-blocdeb:3); 


aff date (dermodi #) ; 
aff | Nu 
PAS 
end 

end; 


{PROGRAMME PRINCIPAL: 
begin 
page(output) 
writeln("CA 


readin(nodiskK); 
writeln; 


unitread(nodisk cat,2028,2); 


numerr:=ioresul] 1É; 
if numerr{)0 then 
else 
be 


gin 

with cat da 

begin 
writeln(volume.nom, 
rer i:=] 


219 ichientrept 12) ; 
ii 1 mod 19=0 the 
beqin 


write(’Tapez ee pour poursuivre: 


read(Keyboard,car 
page(output); 
writeln; 

writeln’ 

end 


chaque fermeture d’un fichier qui a 
été modifié provoque la recopie du 
répertoire, de la mémoire de l’ordi- 
nateur vers la disquette concernée. 
Le répertoire que l’on a soigneuse- 
ment modifié se voit alors écrasé et 
irréméédiablement perdu. L'emploi 
de BLOCKWRITE est donc proscrit 
quand il s’agit de modifier un réper- 
toire. 


Catalogue d’une disquette sans 
passer par le Filer 


Ce programme vous permét d’affi- 
cher à l'écran le contenu d’une dis- 
quette; à savoir le nom de chaque fi- 
chier, son type, sa date de création, 
sa taille. La présentation est du type 
de celle faite par le Filer. À vous de 
modifier ce programme pour qu'il 


Poëêmes et graphismes 
Philippe Misandeau 


J'étais assis là depuis déjà bien long- 


temps, sur le bureau, entre le cen- 
drier en albâtre où finissait de se 
consumer la 17ème cigarette du pa- 
quet cartonné, et ces drôles de cas- 
settes qui n’entendent décidément 


pas grand-chose à la musique. Oh, je 
n'avais pas encore eu le temps de 
m'ennuyer… 


Lui, je le connaissais bien. En quel- 
ques cycles, j'avais beaucoup appris 
< 


CATALOGUE D’‘UNE DISGQUETTE‘); 
write(’Numero du lecteur (4,5 ou 9) : 


# ehr67993 


icerreur(numerr ) 


to volume, MEL PA da 


‘,chr(7)); 


puisse afficher le catalogue sur l’im- 
primante ou indiquer la positon phy- 
sique de chaque fichier. 


Voir listing 3 


La description des divers enregistre- 
ments du catalogue est ici complète. 
Le programme saisit le numéro du 
lecteur, (un traitement des erreurs 
d’entrées/sorties est assuré par la 
fonction JORESULT) et affiche la 
liste des fichiers du volume concerné. 


La connaissance de la structure du 
catalogue permet ainsi de créer ses 
propres utilitaires, les applications ne 
manquent pas, un dernier conseil : 
dupliquez les disquettes ainsi mani- 
pulées ou dupliquez le répertoire. 


sur ses capacités mentales: beso- 
gneux, attentif, méticuleux voire ma- 
niaque, artiste à ses heures, assez pa- 
tient, j'avais mis à rude épreuve sa 
logique, l’avais obligé à délier ses 
doigts, comme à tanner le cuir de ses 
fesses sur la chaise inconfortable de 
notre table de travail ! 


Elle, je ne l’avais que peu rencontrée 
jusqu’à aujourd’hui. Bien sûr, nous 
nous entrevimes au magasin et c’est 
elle qui m'avait introduit ici, le jour 
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de son anniversaire à lui. Je dois dire 
que, même lors de ces brefs mo- 
ments, son regard bleu, l’ondulation 
blonde de ses longs cheveux et le 
timbre de sa voix (surtout la mélodie 
enchanteresse de sa voix), avaient 
produit beaucoup d'effet sur moi : sa 
douce image restait bien ancrée au 
plus profond de ma mémoire. 


Je ne vais pas m'étendre sur nos 
premiers contacts avec lui. Voyez 
cependant une de nos premières réa- 
lisations. Ce programme graphique 
simple m'a demandé beaucoup, 
beaucoup de patience. À coups de 
messages d'erreur”, de ‘’beeps” et 
de silence, j'ai pu le mettre sur la 
voie de ce travail, je vous raconte 
cela pour la petite histoire, mais il 
m'a même fallu parfois intervenir di- 
rectement. J’ai, par exemple, inventé 
un "PRESS ALPHA LOCK 
PLEASE !” Oh, ne cherchez bien 
sûr pas ce message d'erreur sur votre 
TI préféré, il n'existe pas ! Cela faisait 
au moins une heure qu’en vain, il 
cherchait à charger un programme 
avec un ‘old csl” en minuscules ! 
Mon purisme m'interdisait d'accepter 


amour pour la grammaire ! Il a été 
assez surpris de lire ce message sur 
son écran TV. Peut-être à cause du 
"PLEASE !” emprunt d’une certaine 
condescendance qui m'avait 
échappé. Il a dodeliné du chef, m'a 
regardé de biais, l'oeil aussi plissé 
qu'était mal rasée sa lèvre supé- 
rieure, immobilisée d’abord sous 
l'emprise d’une moue fort plaisante. 
Et toc, son index gauche a débloqué 
la situation. Le lévrier afghan, cho- 
qué, préféra changer de tapis lors- 
qu'un OUAIS” retentissant lui 
appris que son maître devenait de 
plus en plus exubérant et, par voie 
de conséquence, de moins en moins 
fréquentable... Personne n'avait vrai- 
ment pris conscience de mon inter- 
vention. En tous cas, nous étions 
momentanément relancés..… et moi, 
libéré de la frappe inutile de ses gros 
doitgs sur mon clavier. 


Je suis assez fier du dernier logiciel 
graphique que nous avons réalisé en- 
semble. S'il est courageux, ce sera le 
point de départ d’un grand fichier 
d'auteurs réalisateurs Pour sortir 
cela, j'ai fait le plein de presque 


que la parole”, non ? C’est un peu à 
cause de cela d’ailleurs que tout est 
arrivé. Il a voulu y mettre de la musi- 
que, et c'est ELLE la musicienne à la 
maison ! Sa tessiture est. différente 
de la mienne, mais j'en reconnais la 
beaüté, la clarté, la pureté. Quand 
elle chante, tout se bouleverse autour 
d’elle. Je l'ai déjà admirée lorsqu'elle 
s'attarde dans la salle de bain. Si les 
portes sont ouvertes, l’on entend 
bien le galbe et les rondeurs de la 
mélodie. Est-ce à cause de moi si, 
dans ces moments, les programmes 
sur lequels il s’acharnait perdaient 
des lignes et ne tournaient plus ? 


Il voulait un nouveau Purcell pour 
accompagner ses talents graphiques. 
Alors elle est venue embaumer la 
pièce. Tout devint lumière. Les fleurs 
de la tapisserie frémirent sur son pas- 
sage. Sa robe légère a caressé mon 
écran - CALL SCREEN(7) - et ses 
doigts de fée ont effleuré mes tou- 
ches: ’Que je renaisse et recon- 
naisse un monde habité par le 
chant”. Même Aragon y aurait perdu 
son ASCII Qu'est-ce que cela a 


donné avant qu’il ne me débranche ? 


une telle commande et puis, jouer un 
peu avec ses nerfs justifié mon 


100 REM X##X#X#XXENNERNERXERXX 

110 * Poemes de % 

120 * Raymond Queneau * 

130 KAXEHAEEREEREEEEEKEEX 
140 * Basic TI x 
150 HAXEXAEEREEEREREEREXX 

160 

170 CALL CLEAR 

180 CALL SCREEN(5) 

190 DATA Ce programme peut creer cent,mil 
le milliards de sonnets re-,quliers. Je 
peux vous les fai- 

200 DATA re tous et en lisant 24h/24,vous 
aurez de la lecture pour,190 258 751 a 

nnees plus quel- 

210 DATA ques plombes et broquilles ce-,1 

a en lisant toute la journee,et 365 jou 

rs par ans... (mais 

220 DATA si l’on compte 50 secondes,pour 
lire un sonnet et 5 se-,condes pour tou 
rner la page à 

230 DATA 8 heures par jours et 200 jours, 
par an vous n’aurez que pour ,un million 
de siecles de lec- 

240 DATA ture !!). Je vous laisse ,commenc 
er... À moins que vous,ne vouliez refai 
re le calcul... 

250 DATA Chaque sonnet a un theme et ,une 
continuite pour la lisibi-,lite et le c 
harme - à defaut 

260 DATA d’etre parfaitement translucide, 
" "Appuyez sur (ENTER)... 

270 DATA 1,3,5,7,11,13,15,17,11,13,15,9,1 
1,13 
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toutes mes mémoires vives. Mais re- 
gardez. il ne nous manque ”plus 


J'en étais 
AGAIN... 


à: AGAIN, AGAIN, 
# 


280 DATA Le roi de la pampa retourne sa‘c 

hemise,Le cheval parthenon s’enerve‘sur 
sa frise 

290 DATA Le vieux marin breton de tabac‘p 

rit sa prise,C’etait a cinq o’clock qu’ 
il‘sortait la marquise 

300 DATA Du jeune avantageux la nymphe‘et 

ait eprise,ll se penche il voudrait'att 

raper sa valise 

310 DATA Quand l’un avecque 1’autre‘aussi 

tot sympatise,Lorsqu’un jour exalte l’a 

ede‘prosaise 

320 DATA Le marbre pour l’acide est une‘f 

riandise,Lorsque tout est fini lorsque* 
l’on agonise 

330 DATA Pour la mettre a secher aux'corn 

es des taureaux ,Depuis que lord elginn 

egligea‘ses naseaux 

340 DATA Pour du fin fond du nez'‘exciter 
les arceaux,Pour consommer un the puis 

des‘petits gateaux 

350 DATA Snob un peu sur les bords des'bo 

rds fondamentaux ,Que convoitait c’est s 

ur une ‘horde d’escrocs 

360 DATA Se faire il pourrait bien que‘ce 
soit des jumeaux ,Pour deplaire au prof 

ane aussi'‘bien qu’aux idiots 

370 DATA D’aucuns par dessus tout'‘prisent 
les escargots,Lorsque le marbrier asti 

que ‘nos tombeaux 

380 DATA Le cornedebif en boite empeste*l 

a remise,Le turc de ce temps-la‘patauge 

ait dans sa crise 
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390 DATA Sur l’antique bahut 

a cerise,Le chauffeur 
t dans la brise 

400 DATA Une toge il portait qui‘n’etait 

pas de mise,Il se penche et alors a sa* 

grande surprise 

410 DATA La decouverte alors voila qui‘tr 

aumatise,La critique lucide apercoit ce 
‘qu’il vise 

420 DATA Sur la plage un forain de feu‘se 
gargarise,Des etres indecis vous parle 

nt'‘sans franchise 

430 DATA Et fermentent de meme et les‘cui 

rs et les peaux,11l chantait tout de mem 

e oui‘mais il chantait faux 

440 DATA I] n‘avait droit qu’a une et‘le 

jour des rameaux,Elle soufflait bien fo 

rt par'dessus les coteaux 

450 DATA Des narcisses on cueille ou‘bien 
on est des veaux, ,Il ne trouve aussi se 

c qu’un'‘sac de vieux fayots 

460 DATA On espere toujours etre de‘vrais 
normaux,1l donne a la tribu des cris'a 

ux sens nouveaux 

470 DATA Qui sait si le requin boulotte”‘l 
es turbots ?,Et tout vient signifier la 
fin‘des haricots 

480 DATA Je me souviens encor de cette‘he 

ure exeuquise,Le cheval parthenon‘friss 
onnait sous la bise 

490 DATA Souvenez-vous amis de ces iles'd 
e frise,On etait bien surpris par'cette 
plaine grise 

500 DATA Quand on prend des photos de‘cet 
te tour de pise,1l deplore il deplore u 
ne‘telle mainmise 

510 DATA Et pourtant c'etait lui le‘frere 
de feintise,L’un et l’autre a raison n 

on‘la foule insoumise 

520 DATA Du voisin le papou sucotte'l’apo 
physe ,On nous fait devenir une orde ‘mar 

chandise 

930 DATA Les gauchos dans la plaine‘agita 
ient leurs drapeaux,Du climat londonien 
ou‘s’ebattent les beaux 

540 DATA Ou venaient par milliers's’echou 
er les harenceaux,QGuand se carbonisait 

la fureur‘des chateaux 

950 DATA D’ou galilee jadis jeta ses'‘peti 
ts pots, Qui se plait a flouer de‘pauvre 

s provinciaux 

560 DATA Qui clochard devenant jetait'ses 
oripeaux,Le vulgaire s‘entete a vouloi 
r‘des vers beaux 

570 DATA Que n’a pas devore la horde‘des 

mulots ?,0n prepare la route aux'‘penser 

s sepulcraux 

580 DATA Nous avions aussi‘froid que‘nus 
sur la banquise,1l grelottait le pauvre 
aux‘bords de la tamise 


il choisit's 
indigene‘attendai 


590 DATA Nous regrettions un peu ce tas'd 


e marchandises,Un audacieux baron empoc 
he‘toute accise 

600 DATA D’une etrusque inscription la‘pi 
erre etait incise,Aller a la grand vil] 

e est'‘bien une entreprise 

610 DATA Un frere meme bas est la part‘in 
decise,L’un et l’autre ont raison non] 

a foule imprecise 

620 DATA Le gourmet en salade avale la'cy 
tise,De la mort on vous greffe une ‘orde 
batardise 

630 DATA Lorsque pour vous distraire y‘pl 
antions nos treteaux ,Quand les grelons 
fin mars'‘mitraillent les bateaux 

640 DATA Lorsqu‘’on voyait au loin'flamber 
les arbrisseaux,Lorsque vient le pompi 

er avec'ses grandes eaux 

650 DATA Les grecs et les romains en‘vain 
cherchent leurs mots,Elle effraie le b 
erry comme ‘les morvandiaux 

660 DATA Que les parents feconds'‘offrent 
aux purs berceaux,A tous n’est pas donn 

e d’aimer'‘les chocs verbaux 

670 DATA L’enfant pur aux yeux bleus'‘aime 
les berlingots,La mite a grignote tiss 

us os'et rideaux 

680 DATA Du pole a rosario fait une‘belle 
trotte,La grece de platon a coup sur‘n 
‘est point satte 

690 DATA On seche le poisson dorade ou‘mo 
lve lotte,Du qgange au malabar le lord'a 

nalais zozotte 

700 DATA L’esprit souffle et resouffle‘au 

-dessus de la botte,Devant 1a boue urba 
ine on‘retrousse sa cotte 

710 DATA La genealogiste observe leur ‘bou 
illote,Le poete inspire n’est point'‘un 

polyglotte 

720 DATA Le loup est amateur de coq et‘de 
cocotte,Le brave a beau crier ah‘cre-n 

om saperlotte 

730 DATA Aventures on eut qui s’y pique‘s 
‘y frotte,On comptait les esprits acere 

s'a la hotte 

740 DATA On sale le requin on fume a'l’ec 

halotte ,Comme a chandernagor le manant* 

sent la crotte 

750 DATA Le touriste a florence ignoble‘c 

haribotte,On gifle le marmot qui plonge 

‘sa menotte 

760 DATA Gratter le parchemin deviendra's 

a marotte,Une langue suffit pour emplir 

‘sa cagnotte 

770 DATA Le chat fait un festin de‘tetes 

de linottes,Le lache peut arquer de sa* 

mine palotte 

780 DATA Lorsque socrate mort passait‘pou 

r un lutin,Lorsqu’on boit du mate 1’on° 

devient argentin 
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790 DATA Lorsqu'on revient au port en‘ess CALL COLOR(B,8,1) 
uyant un grain,Le colonel s’eponge un b NEXT B ° 
lason‘dans la main FOR B=i TQ 24 
800 DATA L’autocar ecrabouille un peu‘d’e READ T$ 
sprit latin,Lorsqu’il voit la qadoue il GOSUB 1820 
‘cherche le purin NEXT B 
810 DATA 11 voudra retrouver le aerme‘adu FOR B=i TO 14 
Iterin,Meme s’il prend son sel au‘celte READ LP(B) 
c'est son bien NEXT B 
820 DATA Le chemin vicinal se nourrit‘de CALL KEY{(0,K,S) 
crottin,Les croque-morts sont la pour's IF K<)>13 THEN 1100 
e mettre au turbin CALL CLEAR 
830 DATA L’amerique du sud seduit les'equ CALL SCREEN( 13) 
ivoques,Sa sculture est illustre et‘dan FOR I=1 TO 14 
s le fond des coques FOR B=i TO 10 
840 DATA Enfin on vend le tout homards'et READ L1$(B) 
salicoques,Ne fallait pas si loin agit NEXT B 
er'ses breloques RANDOMI ZE 
850 DATA Les rapports transalpins'‘sont-il T$=L1$CINT(RNDX10)+1) 
s biuniviques ?,0n regrette a la fin Île LRCI)=TS$ 
s'agrestes bicoques GOSUB 1640 
860 DATA Frere je te comprends si'‘parfois IF LP(I)415 THEN 1320 
tu debloques,Barde que tu me plais tou IF (LP(I1)=15)*x(I1=11)THEN 1290 
jours'‘tu soliloques IF LP(I)<317 THEN 1320 
870 DATA On a bu du pinard a toutes les'e FOR D=0 TO 50 
poques,Cela considerant o lecteur tu‘su NEXT D 
ffoques PRINT : : 
880 DATA Exaltent l’espagnol les‘oreilles GOTO 1320 
baroques,On transporte et le marbre et FOR D=0 TO 50 
‘debris et defroques NEXT D 
890 DATA On s'excuse il n’y a ni‘baleines PRINT #5 5 3 3 5 3: 1: 
ni phoques,Les indes ont assez sans ca NEXT I 
de ‘pendeloques T$=" {A} pour arret" 
900 DATA Les banquiers d’avignon'‘changent B=22 
-ils les baioques ?,0n mettait sans fac GOSUB 1820 
on ses plus'‘infestes loques T$="(M} pour meme poeme” 
910 DATA Frere je t’absoudrai si tu‘m’emb B=23 
erlucoques,Tu me stupefies plus que tou GOSUB 1820 
s'les ventriloques T$="<{N} pour nouveau poeme" 
920 DATA Griqgnoter des bretzels'‘distrait B=24 
bien des colloques,Comptant tes abattis GOSUB 1820 
lecteur'‘tu te disloques CALL KEY{(0,K,5) 
930 DATA Si la cloche se tait et son'‘terl IF K=é5 THEN 1880 
intintin,Si l’europe le veut l‘europe‘o IF K=77 THEN 1480 
u son destin IF K{>78 THEN 1420 
940 DATA Le mammifere est roi nous'sommes RESTORE 280 
son cousin,L’ecu de vair ou d’or ne du GOTO 1120 
re‘qu’un matin CALL CLEAR 
950 DATA Le beaune et le chianti‘sont-ils FOR 1=1 TO 14 
le meme vin ?,Mais on n’aurait pas vu T$=LRS(I) 
le‘metropolitain GOSUB 1640 
960 DATA La gemellite vraie accuse sonde IF LP(I)<415 THEN 1620 
stin,Le metromane a force incarne'‘le de IF (LP(I1)=15)*(1=11)THEN 1590 
vin IF LP(I)4)>17 THEN 1620 
970 DATA Mais rien ne vaut grille le‘morc FOR D=0 TO 50 
eau de boudin,Toute chose pourtant doit NEXT D 
‘avoir une fin PRINT #5 à # &'yr 3 
980 OPTION BASE 1 GOTO 1620 
990 DIM LP(14),L1#(10) ,LR#(14) FOR D=0 TO 50 
1000 FOR B=1 TO 12 NEXT D 
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1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


PRINT : 

NEXT 1 

GOTO 1330 

PC=1 

L=LP(1) 

C=2 

LOSLENCT#)-1 

CR=0 

CAR=ASC(SEGS(T$ ,PC,1)) 
IF CAR<)96 THEN 1750 
C=2 

L=L+1 

PC=PC+1 

GOTO 1690 

CALL HCHAR(L,C,CAR) 
CR=CR+1 

IF CR<LO THEN 1790 
RETURN 

C=C+1 

PC=PC+1 

GOTO 14690 

PC=1 

FOR X=2 TO 1+LEN(T#) 
CALL HCHAR(B,X,ASC(SEGS(T$,PC,1))) 
PC=PC+1 

NEXT X 

RETURN 

CALL CLEAR 

END 


100 
110 
120 
130 
140 
150 
160 
170 


REM #XXXXHHKAXRERXXEREEXEEX 

REM * Progr amme * 

REM * graphique * 

REM 3626 EDEN EEE 

REM * Basic TI * 

REM H##XX#RMXERNRRRERRRERE 

REM 

CALL CLEÂAR 

180 DATA 03,0000000000000103 

190 DATA FFFFFFFFFOFOCOC,C08,000000000001 
070F,00000000000000FF ,FOFFFFFFFFFFFFFF 
200 DATA 21FFFFFFFFFFFFFF,0000C0FO0FOFCFFF 
F,0F317C7CFFFFFFFF,0000000GEOFOFFFF 

210 DATA 0303070707070707,FEFFFFFFFFFFFFF 
F,/F3F9FSFEFDFCF9C,OFOFOFOFIFIFIFIF 

220 DATA FFFFFFFFFFFFFEFE,F0C0C0808,1F070 
3,FFFFDCO00000000C7,0F0F0103030707FF 

230 DATA 7F7F7F7F7F7F7F7F,0F1F1F3F3F3F7F7 
F,FCFCFCFCF8F8F8F&,17280000000000F 

240 DATA FF2000000000077F,FFFF7F3F070301E 
1,F0FOCOCO000000F,F8FOFS8FCFDFFFFFF 

250 DATA 0F3F7FFFFF7F3F1F,80C0E1FFFFF7C18 
1,7FFFFFFFFFFFFFFF,7F3F3F3F7F7F7F7F 

260 DATA F7E3C199B9A0A0CS,FFFEF8F8F0F8F0F 
,FFFCé,C9C9CSESEIF1F1F9,0000000080C8FCF 

8 

270 DATA 0000000000001013,FFFF7F3F1FOFIFF 
F,COCOFOFO0C080008 

280 DATA 3F1F1FO0F0F070/07,FFFFFFFEF8E0CO8 
,0F070508081B3FF ,FFFF4FOF3FFFFF7F 


290 DATA COEOFOFOFOF@FCFE,030303030101010 
1,0000000080E0E,840E0E1FFF7F1FOF 

300 DATA OF1F3FFFFFFFFFFF,FFFF7F7F7F3F0FO 
7,0000000003CFFFFF,6F1F7FFFFFFFFFFF 

310 DATA 1F3F7FO0FO6,FFFFFFFF7F3FIFIF,FFFF 
FFFFFFFCFOFC,1F1F3F7F7F7F7F7F 

320 DATA 3F3F3F1F0701,FFFFFFFFFFFFFFFF,00 
030F1F7FFFFFFF ,FFFFFFFF3FC7C3F9 

330 DATA F9FFFFFFFFFFFFFF 

340 DATA 32,32,32,32,32,101,101,32,32,32, 
32,32,32 

350 DATA 32,97,154,103,153,153,153,153,10 
2,104,101,32,32 

360 DATA 97,105,155,153,153,153,153,193,1 
53,153,102,106,32 

370 DATA 107,153,108,109,153,153,153,153, 
153,153,153,108,142 

380 DATA 110,153,111,112,113,114,97,115,1 
53,153,153,118,32 

390 DATA 117,153,118,97,119,32,120,121,15 
3,153,153,122,32 

400 DATA 116,153,123,124,153,125,126,153, 
153,153,153,135, 32 

410 DATA 127,128,153,96,130,96,153,153,15 
3,153,129,99,32 

420 DATA 127,131,153,132,32,133,134,153,1 
53,153,135,32,32 

430 DATA 136,156,137,99,32,138,139,153,15 
3,153,140,32,32 

440 DATA 141,153,142,32,96,143,144,153,15 
3,153,142,32,32 

450 DATA 96,145,32,32,100,146,147,153,153 
,153,98,32,32 

460 DATA 32,96,99,32,148,149,153,153,153, 
150,99,32,32 

470 DATA 32,32,32,32,32,151,153,153,98,99 
,32,32,32 

480 DATA 32,32,32,32,32,152,152,98,32,32, 
32,32, 32 

490 CALL SCREEN(8) 

500 FOR B=1 TO 16 

510 CALL COLOR(B,5,1) 

520 NEXT B 

530 PRINT TAB(13); "JE": :TAB(11) ;" CHERCHE 
“: :TAB(13) ; "MON": :TAB(11) ;"CRAYON" : 


540 FOR B=96 TO 156 
550 READ C$ 

560 CALL CHAR(B,C$) 
570 NEXT B 

580 FOR L=é TO 20 
590 FOR C=10 TO 22 
600 READ V 

610 CALL HCHAR(L,C,U) 
620 NEXT C 

630 NEXT L 

640 CALL KEY(0,K,5) 
650 IF S=0 THEN 640 
660 CALL CLEAR 

670 END 
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Un désassembleur en assembleur 


Jean-Luc Bazanegue 


Cet utilitaire transforme le code ma- 
chine, situé en mémoire vive ou 
morte, en un fichier source compati- 
ble avec l’Editeur/Assembleur Texas 
Instruments. Il est donc possible, si le 
produit du désassemblage est dirigé 
vers une disquette, de traiter le fi- 
chier ainsi créé exactement de la 
même façon qu'un fichier source 
classique. 


Le programme fonctionne indifférem- 
ment avec l'Editeur/Assembleur et la 
Mini-mémoire (une extension de mé- 
moire est indispensable). 


Ce programme est relativement 
complexe et une analyse complète 
de son fonctionnement occuperait la 
totalité de ce numéro. Nous avons 


donc décidé de limiter cet article à 
un ‘mode d'emploi” du logiciel. 


Adresses à désassembler 


‘La première question posée par le 
programme, lorsque vous lancez son 
exécution, concerne la zone de mé- 
moire à désassembler. Vous devez 
entrer successivement la première et 
la dernière adresse, en hexadécimal. 
Si vous faites des fautes de frappe, 
les corrections sont possibles grâce 
aux touches FCTN-S (flèche vers la 
gauche) et FCTN-D (flèche vers la 
droite). 


Certaines erreurs peuvent provoquer 
la génération d’un fichier source in- 
cohérent. Pour éviter cela, la saisie 
des adresses est protégée de la ma- 
nière suivante : 


e le programme n'accepte que les 
caractères propres à l'écriture d’un 
nombre en hexadécimal (0 à 9 et 
À à F). L'entrée d'un autre carac- 
tère provoque la remise à zéro du 
champ et le curseur se place en 
première position; 

e les adresses impaires sont rejetées 
systématiquement (toutes les ins- 
tructions du TMS 9900 utilisent au 
moins un mot); 

e le nombre représentant la dernière 
adresse à désassembler doit être 
logiquement supérieur au nombre 
représentant la première adresse. 
Sinon, le programme retourne à la 
première question. Cette particula- 
rité peut être utilisée en cas d’er- 
reur: si, par exemple, vous avez 
entré A000 comme adresse de dé- 
part alors que la zone à désassem- 
bler débute en A100, communi- 
quez au programme une valeur 
inférieure à A000, les deux adres- 
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ses seront alors ignorées et vous 
pourrez frapper le nombre désiré. 


La touche ‘’BACK”" (FCTN-9) auto- 
rise le retour à l’Editeur/Assembleur 
(ou à la mini-mémoire). 

Note : la dernière adresse désassem- 
blée ne sera pas forcément celle pré- 
vue. En effet, suivant les modes 
d’adressage utilisés, une seule ins- 
truction peut occuper jusqu’à 3 mots 
(6 octets). Exemple : 


e vous communiquez au programme 
B000 comme dernière adresse; 

e cette adresse contient la valeur 
C9E0 qui correspond, en code 
mnémonique, à MOV@>xxxx, (@ 
>yyyy(R7); 
dans ce cas, les adresses B0O02 et 
B004 contiennent respectivement 
les adresses >xxxx et >yyyv et la 
dernière adresse  désassemblée 
sera B004 (et BO05 puisqu'il s’agit 
de mots). 


Choix du nom de fichier 


Le code source produit par le désas- 
sembleur peut être dirigé sur n’im- 
porte quel périphérique classique 
comme, par exemple, PIO.LF, 
RS232.BA=9600, DSK2.XXXX, 
etc. Dans tous les cas, le fichier sera 
en format variable, 80 caractères 
maximum. 


Comme pour les adresses, les correc- 
tions avec les touches FCTN-S et 
FCTN-D sont autorisées et une pres- 
sion sur BACK provoque le retour à 
l'Editeur/Assembleur ou à la Mini- 
mémoire. Lors de la validation du 
nom de fichier par pression sur la 
touche ENTER, seuls les caractères 
situés à gauche du curseur sont pris 
en compte par le programme; les 
autres sont ignorés et disparaissent 
de l’écran. 


Si le désassembleur est employé plu- 
sieurs fois de suite, le dernier nom de 
fichier utilisé réapparaît dans la zone 
de saisie. Dans ce cas, il suffit d’ap- 
puyer sur la touche ENTER pour va- 
lider le nom de fichier (si le curseur 
est placé sur la première position de 
la zone de saisie). Ceci est utile lors- 
que le produit du désassemblage est 
dirigé vers une imprimante. 


Protections 


Le programme est protégé contre 
toutes les erreurs qui peuvent se pro- 
duire lors de l'entrée du nom de fi- 
chier. Les codes d'erreur générés 
sont les mêmes qu'avec l'Edi- 


teur/Assembleur, cela dans un but 
d'homogénéité. Rappelons briève- 
ment la signification de ces codes : 

0 - nom de fichier incorrect; 

1 - appareil protégé contre l'écriture; 
2 - mauvais attributs d'ouverture; 

3 - opération illégale (par rapport 
aux attributs d'ouverture); 

4 - dépassement de table ou tam- 
pon; 

5 - tentative de lecture au-delà de la 
fin de fichier; 

6 - toutes erreurs liées aux appareils 
ou supports; 

7 - erreur de fichier comme, par 
exemple, fichier non existant ouvert 


en mode INPUT. 


Il est évident que certaines erreurs 
n'apparaîtront jamais puisque le pro- 
gramme se charge de la gestion des 
fichiers. 


Pendant le désassemblage propre- 
ment dit, si le ”’fichier source” est di- 
rigé vers une unité de disquettes, 
l’état de la disquette en fonction est 
contrôlé en permanence. Si une er- 
reur se produit, le message ‘’Dis- 
quette saturée” s'affiche, le fichier est 
clos, et le désassemblage s’inter- 
rompt. 


Visualisation sur écran 


Le désassemblage peut être dirigé 
vers l'écran en donnant ’E” comme 
nom de fichier. Si d’autres caractères 
suivent la lettre ”E”, ils sont ignorés. 


L'affichage sur l'écran se fait sur 40 
colonnes et par pages de 24 lignes. 
Pour visualiser la page suivante, il 
faut appuyer sur la barre d’espace- 
ment. 

Le désassemblage s'arrête si la tou- 
che BACK est enfoncée. La même 
touche autorise aussi un retour au 
menu, lorsque le programme a ter- 
miné son travail. 


Options 
Adresses et valeurs 


Cette option permet d'afficher, à côté 
de chaque code mnémonique, les 
adresses des instructions, le code ma- 
chine et, si nécessaire, la ou les 
adresses utilisées en cas d’adressage 
symbolique ou symbolique indexé. 


Un fichier généré avec ce complé- 
ment d’information est plus pratique, 
car il permet au programmeur de dé- 
terminer la validité de certaines ins- 
tructions par rapport au programme. 
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En effet, le désassembleur ne peut 
pas faire la différence entre une zone 
de données et une zone comportant 
des instructions. Par exemple, si le 
programme rencontre le code 05C7, 
il produira l'instruction source ”’INCT 
R7”, même si cette adresse contient 
en réalité une valeur entrée avec la 
directive “DATA” Le problème est 
le même pour les adresses contenant 
du texte. Il faut toutefois noter que, 
si le fichier source est réassemblé, le 
fichier objet obtenu sera correct. 


Lorsque le désassembleur produit la 
liste des adresses et valeurs, le fichier 
source occupe environ trois fois plus 
de place. Si cela n'a pas d’impor- 
tance pour un listing sur imprimante, 
un fichier sur disquette peut très vite 
prendre des proportions considéra- 
bles. Il vous appartiendra donc de 
déterminer, en fonction des circons- 
tances, si la liste des adresses et va- 
leurs est requise. 


La réponse par défaut à la question 
Adresses et valeurs ?”, lors de la 
première exécution du programme, 
est Oui”. Pour les exécutions sui- 
vantes, la réponse par défaut est 
celle donnée pendant la précédente 
séance. Une pression sur la touche 
“’BACK” (encore elle !) autorise un 
retour au menu. 


Adresses symboliques 


Un programme écrit en assembleur, 
lorsqu'il a été réalisé par une tierce 
personne, n’est pas toujours facile à 
comprendre. Si les branchements et 
sauts sont indiqués en adresses réel- 
les, la compréhension du logiciel est 
encore moins aisée. 

Cette seconde option permet la créa- 
tion d’une table des adresses symbo- 
liques. Ainsi, la lecture du fichier gé- 
néré par le désassembleur devient 
beaucoup plus facile. Il est en effet 
plus agréable d'obtenir des instruc- 
tions comme ’JNE S043” ou BL 
@S200” plutôt que ‘’JNE >A890” 
ou ”’BL @>B098”. 


Le programme peut stocker jusqu’à 


Exemple de Fichier source : 
obtenu sur une imprimante cl 


matricielle Apple. 


RI1,2)2F2E 
1 )2EË0 


rh 25000 
>07F4 
Eu nat 
LI  RO,)04F0 
LI fl, 732850 
50018 
LP At 
LI R0,)0380 
LI  R1,)F000 


500 adresses symboliques (S000 à 
S499). Si le nombre de branche- 
ments ou de sauts dépasse 500 (ce 
qui est peu probable), le désassem- 
blage se poursuit normalement mais 
avec des adresses réelles. De même, 
si le programme rencontre des bran- 
chements vers des adresses situées 
en dehors de l’espace mémoire à dé- 
sassembler, il affichera des adresses 
réelles. 

La création de cette table se traduit 
par une période pendant laquelle le 
programme donne l'impression de 
s'être ‘’planté”. Le temps nécessaire 
pour réaliser cette tâche est directe- 
ment proportionnel à la longueur de 
la zone de mémoire à traiter (environ 
1,3 secondes par Ko). 


Si le fichier source doit être réassem- 
blé, les branchements et sauts sym- 
boliques peuvent être source de pro- 
blèmes. En effet, nous avons vu 
précédemment que les zones de 
données sont parfois prises pour des 
instructions, ce qui laisse penser que 
le programme peut aussi générer des 
branchements inutiles. Pour éviter ce 
type de désagrément, il suffit de ré- 
pondre ”’Non” à la question ’’Adres- 
ses symboliques ?”. 

En ce qui concerne les réponses par 
défaut, les règles sont les mêmes que 
pour la question Adresses et va- 
leurs ?”. 


Remise à zéro de la table 


Le fichier source produit par le dé- 
sassembleur est toujours plus volumi- 
neux qu'un fichier créé avec l'éditeur 
Texas Instruments (à cause des don- 
nées transformées en instructions). Il 
est donc parfois nécessaire de désas- 
sembler un programme par secteurs, 
pour ensuite le réassembler avec la 
directive “COPY” 


Les adresses symboliques ne devant 
pas être dupliquées, il ne faut pas 
réinitialiser la table des symboles. 
Ainsi, si la dernière adresse du pre- 
mier segment de programme est 
baptisée ”S078”, la première adresse 


S001 BLWP 23)210C 
NC pe 


RE Sur 


2F34 C80B 

2F38 02E0 2EE0 
2F3C 06A0 2F9A 
2F40 0200 07F4 
2F44 0420 211C 
2F48 0200 CAFO 
2F4C 0201 2850 


2F2E 


2F54 0420 2110 
2F58 0200 0380 S2HRE 
2F5C 0201 F000 


20340 


ù Ro, )02FF 
32000 
5002 Bu 5) DAS 


5002 
R2,)297C 
R3, >298€ 

L Ra »2736 
2F50 0202 0018 Re RO 


JEQ 
5004 MOVB #R4+,R1 


du deuxième segment s’appelera 
75079”. Si la table est réinitialisée 
avant le désassemblage du second 
segment, vous verrez apparaître une 
impressionnante série de ‘’MULTI- 
PLE SYMBOLS'” au moment du 
réassemblage. 


La question ‘Remise à zéro table ?” 
n'est pas posée lors de la première 
exécution du programme. Elle est 
aussi ’court-circuitée” si vous avez 
répondu Non” à la question 
Adresses symboliques ?”. 


Le désassembleur est enregistré sur 
la cassette d'accompagnement de ce 
numéro sous la forme d’une image 
mémoire. Il doit donc être chargé à 
l’aide de l’option "RUN PROGRAM 
FILE” de l'Editeur/Assembleur. Pour 
information, signalons que ce pro- 
gramme se place en mémoire à partir 
de l’adresse >A000 et qu'il occupe 
environ 5 Ko. 


Un désassembleur sur cassette n'est 
pas vraiment pratique puisqu'il est 
impossible de modifier l’adresse de 
chargement. De plus, si vous ne pos- 
sédez pas le module Editeur/ 
Assembleur, vous ne pouvez pas uti- 
liser ce programme. Nous pouvons 
vous envoyer, contre 55 Francs, une 
disquette contenant : 

e le fichier source listé pages suivan- 
tes (DESS); 

e un code objet utilisable à partir de 
l'Editeur/Assembleur ou de la 
mini-mémoire (avec extension 32 
Ko), ce fichier se charge à partir 
de l’adresse >2700 (DA2700); 
le même code, mais prévu pour 
un chargement à partir de 
l'adresse >A000 (DAA000); 
un code objet utilisable à partir du 
Basic Etendu(avec extension 32 
Ko), et dont le chargement s’effec- 
tue à partir de l’adresse >2700 
(CALL LOAD ”’DSKx.DB2700”); 
le même code que le précédent, 
mais avec chargement à partir de 
l'adresse >A000 (CALL LOAD 
"DSKx.DBA000”). 


2F60 0420 210€ 
2F64 0580 
2F66 0280 0340 
2F6A 16FA 
2F6C 0200 02FF 
2F70 0201 2000 
2F74 0420 2100 
2F78 0600 
2F7A 18FC 
2F7C 0202 297C 
2F80 0203 298€ 
2F84 0204 2736 
2F88 C032 
2F8A 8002 
2F8C 1310 
2F8E D074 
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2F90 11FB 5005 SETO xRO+ 
2F92 0420 210C ce RO .RI 
2F96 0580 S0ÛS 
2F98 10FA ae 2)2F30 
2F94 0200 2AA0 B xRii 
2F9E 0201 2E8A 


JLT 5003 

BLWP 9)210C 

INC RO 

JMP S004 
S000 LI RO,)2AA0 


2FA2 0730 
2FA4 8040 
2FA6 16FD 
2FAB 04E0 2F30 
2FAC 045B 


LI R1,)2EBA 


TEXT STWPCI 

ADRETG BSS )03E8 
TLIGNE BSS »50 
TCLAV BSS )4 
ADRS BSS 4 
REGPP B5S 20 
REGSP BSS »20 
TEST DATA )E00D 


DEF DESA 

REF  UUTR,VSBW,UMBUW ,VSBR ,UMBR , KSCAN, DSRLNK 

ACRG 2700 

DATA >0012,21000,)5000,)0000,20000 
>2020,2020,)2020,)2020,)2020,)2020,)2020,)2020 
>2020,)2020,)2020,)2020,)2020,)2020,)2020,)2020 
)2020 32020, 32020, 32020, >2020,)2020 

=2# DÉSASSEMBLEUR * ‘ 

-‘_1984 99 Magazine ‘ WRCL DATA 20301 
-’Adresses à desassembler ? ‘ DRIP DATA 
-‘Premiere adresse ? : DRECR DATA 
-‘Derniere adresse ? : ” DRADRS DATA 
-‘Fichier : TABLEI DATA 
-‘’Adresses et valeurs ? ADRON DATA 
-‘Adresses symboliques? ‘ ADRRET DATA 
‘Remise à zero table ? PRETG DATA 
-‘Disquette saturee ’ SARGPL DATA 
-‘Erreur code ‘ PLONG EQU 
-*<ENTER) pour continuer... * ETAT  EQU 
‘0123456789ABCDEFS(R)*,9)$+2-"°" RTCLAV EQU 
‘DATA’ TPAB  EQU 
>4F PAB EQU 
>4F * affichage 
)20 DESA MO 
>4F 
>0D 
)08 
>09 
)0F 
>4F 
)4E 


>0000,0000 , 0000, >447C 
>3C42, 9981 ,4199,)423C,)0000,>007C, )4444, >447C R1,)F000 
>F000 ,>E000,>D000,)C000,>B000, >A000, >9000 TCOUL ASE 
»8000 ; >7000 ; >6000 , 5000, >4000 , > 3C00 ; > 3800 RO 
>3400 3000 ; >2C00 2800 ; >2400 ; > 2000 ; >1F00 1  R0,)0340 
»1E00 ,>1D00 , >1C00 ; >1B00 , >1A00 ; 1900, )1800 TCOUL 
»1700 31600 , 31500 ,1400,)1300,1200,)1100 RO, >02FF 
»1000 ; >0B00 ; >0A00 ; >0900 , >0800 ; >0740 ; >0700 R1,2000 
>0éC2 ; 30680 , >0640 ; >0600 ; >05C0 ; >0580 ; >0540 ASEU 
>0500 , >04C0 , >0480 , >0440 , >0400 , )03E0 , >03C0 RO 


ORI ANDIAI LI 


TEXTES TEXT 
TEXTE4 TEXT 
TEXTE2 TEXT 
TEXTE3 TEXT 
HEXA  TEXT 
DATA  TEXT 
SYON  BYTE 
ADRZON BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EVEN 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2S0O0SOCSoCoS 


>8356 
>837C 
)8375 
1000 
)F80 


R11 , 2ADRRET 
REGPP 

9FAFT 
RO,>07F4 
AWTR 

RO ,>0AFO 

R1 ,CREDEF 
R2,18 
AMBU 

RO, >0360 


DESAR 


CREDEF 
CODE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ADRECR DATA 
MNEMO TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


>03A0 ; >0380 ; >0360 , 0340 ; 70300 ; >02E0 ; >02C0 
>02A0 , >0280 , >0260 , >0240 , 0220, 0200 
>0000 ; 1000 ; >2000 , ) 3000, >4000 ; >5000 , >6000 
7000 ; >8000 ; >9000 ; >A000 ; >B000 ; >CO00 ; >C400 
>C800 ; >CCOO ; >D000 ; >D400 ; >D800 ; >DCO0 ; >E000 
>E100 ,>E200 , >E 300 , >E400 , E500 , >E600 ,)E700 
>E800 , >E900 , >EA0O , EB00 , >ECO0 , >ED00 , >EE0O 
DEFO0 ; >F 400 , )F 500 ,>F600 ,>F700 , >F880 , )FECO 
>F900 ; )F940 , >F980 ; >F9C0 , )FAUO ; )FA4O , )FABO 
)FACO ; )FB00 ; >FB40 ; >FB80 , >FBCO , )FCIF ; )FC3F 
DFCSF ! DFC7F ; )FC9F , )FCBF ,FCFF ,FDIF ; )FD30 
>FD50 ; >FD70 , >FD90 , >FDBO , >FDDO , )FDFO 
>0028,)0067, »00C4; )0104, 0124, >0184,)01E4, 
-SOCBSOC MOVEM A ° CB 

© S S LESC DIU MPY ‘ 
:STCRLDCRXOP XOR C2C COC TB ” 
:682 SBO JOP JH JL NO JOC 
2JNC JNE J6T JHE JEQ JLE JLT ‘ 
:JMP SRC SLA SRL SRA ABS SETO” 
2SUPBBL  DECTDEC INCTINC IV ‘ 
NEG CLR X B  BLWPLREXCKOF” 
? CKONRTWPRSET I DLEL IMILWPISTST 
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>0204 


MOVB 
JLT 
BLWP 
INC 
JMP 


EFEC 
R2,ADRECR 

R3, ADRECR+ >1 2 
R4, TEXTE! 
xR2+ ,RO 

R2,R3 

DSAIS 

#R4+,RI 

AFT 

WSBU 

RO 

AFTI 


* reinitialisation table 


FAFT LI 
LI 
VT SETO 
€ 


RO ,ADRETE 


R1 ,ADRETG+ >03EA 


*RO+ 
RO,RI 


JNE UT 


CLR 
RT 


aPRETO 


*# saisie adresses hexa 


DSAIS LI 


R10,1 
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DSAI SO 


BL  9SAISIE 
DATA )0119 
BL  ACARN 
COC R10,R3 
JEQ DSAÏSO 
MOV R3, SADRS 
BL  9SAISIE 
DATA )0139 
BL 3CARN 
COC R10,R3 
JEQ DSAISI 
MOV R3, SADRS+2 


* verif si erreur 


ERSAI 2 


C  2ADRS+#2, SADRS 
JH  SNF 

LI  R0,0119 
CLR Ri 

LI R2,4 
BLWP SVSBW 
INC RO 

DEC R2 

JNE ERSAI! 
LI R0,)0139 
LI R2,4 
BLWP AVSEU 
INC RO 

DEC R2 

JNE  ERSAI2 
JMP  DSAIS 


* saisie nom fichier 


SNF 
SNF0 


LI RO,)024A 
LI R1,)2000 
BLUP AVSBW 
RO 
RO, >02FD 
SNFO 


RO, >018E 
R1 ,NFICH 
R2,2C 


LI R7,NFICH 
CLR R2 

LI  R3,)100 
BLWP 3KSCAN 
MOVB 2ETAT ,R4 


RETOUR 
ARTCLAW,3TFS 
SNF3 
R2,R2 
SNF? 

MOVB xR7,RI 

BLWP AVSBU 

DEC 

DEC 

DEC 


8RTCLAW, STFD 


CI 

JEQ 

MOVB #R7+,R1 
BLWP aVSEU 
INC R2 
INC RO 
JMP  SNF2 
CI R2,)2B 


JEQ  SNF2 

MOVB GRTCLAV,RI 

MOVB R1 ,#R7+ 

BLWP VSBU 

INC 

INC R2 

JMP. SNF2 

DEC R3 

JNE  SNF2 

MOV Ré,Ré 

JEQ  SNFCLO 

CLR Ré 

MOVB 3HEXAH)IC,RI 

BLWP USEW 

JP. SNFI 

SETO Ré 

MOVB #R7,R1 

BLWP AVSBW 

JMP. SNFI 

MOVE #R7,RI 

BLUP aUSÈU 
R2,R2 
SNFE1 
ANFICH, QTESP 
SAONX 


SNF2 
SUPB R2 

MOVB R2,30$K+9 
LI Ré,)2000 
SWPB R2 

MOVB Ré, ANFICHCR2) 
INC R2 

CI R2,)2C 
JNE  SNFEO 

LI R0,)018E 
LI  RI,NFICH 
LI R2,)2C 
BLUP AUMEU 


* saisies options 
SAONX CB  3NFICH,3HEXA+14 


JNE  SAON 
SETO 3DRECR 
JMP_ SAONI 

CLR 3DRECR 
LI RO,)01FA 
LI  R3,)4% 
LI  R2,TON 
BL 30 

MOVB ATON,RI 
BLWP ASE 


RO ,021A 
R2,SYON 
BL 30N 
MOVB 3SYON,RI 
BLUP AUSBU 
CB R1,9T0 
JNE _ ASÛNO 
SETO 3DRADRS 
JMP_ RZON 
aDRADRS 
2FAFT 
OUVF 
aDRIP,RI 
RZONO 
SETO 3DR1P 
JMP_ OU 


LI RO,)0224 
LI R2,TEXTES 
MOVB xR2+ ,RI 
JLT  RZON2 
BLWP USE 
INC RO 
JMP R2ONI 
LI RO,)0234 
LI  R2,ADRZON 
BL 30N 
MOVB ADRZON,RI 
BLUP USE 
R1,3T0 
OUVF 


aFAFT 
* ouverture fichier 
OUVF  MOW  GDRECR,RI 
OUVF6 
RO ,2 
RO, ATABLEI 
TABETG 
RO ,PAB 
R1 ,DSK 
R2,)36 
AMEU 
RO ,PAB+9 
RO, #PLONG 
R! 


29802, 3SARGPL 
29802, 2SARGPL+1 


aSARGPL 

R1,9ETAT 
BLWP 3DSRLNK 
DATA 0008 
JNE  TABETG 
LI  RO,PAB+#I 
CLR RI 
BLWP AVSBR 
ANDI R1,)E000 
MOV RI,R3 
LI  RO,)02M 
LI  R2,TEXTEZ 
MOVB #R2+ ,RI 
JLT  OUVF4 
BLWP AVSEU 
INC RO 
JMP OUVF2 
LI  R0,)02E4 
LI  R2,TEXTE3 
MOVB #XR2+,RI 
JLT  OUFI 
BLWP USB 


SRL R3,13 
MOVB AHEXACR3) ,RI 


BDELAI DEC R2 
UNE  BDELAI 
BKSCAN BLWP 3KSCAN 


CB  ZRTCLAV, STENT 


JNE  BKSCAN 
B SSNF 
* creation table etq 
TABETQ MOV 
JEQ 
MOV 
MOV 
TAB3 C 





R8 
ACODE (RB) ,R4 
TABé 
ACODE(RE) ,R4 
TAB5 

R& 

R8, >8A 
TAB! 
TAB3 

R8, )2E 
TAB? 

RB, 46 
TAB2 
R4,FF 
TAB3 
ACADRR 
AEXADR 
TAB3 
R8,)56 
TAË4 
R8,)68 
TAË4 
RB,)6A 
TAB? 
R4,3F 
Rd; 20 
TAB3 
kR1+ ,R1O 
AEXADR 
TAB3 
R8,)16 
TAB9 
R4,R5 
RS, )30 
R5, )20 


3 
TAB11 
TAB12 
R8,)78 
TAB3 
R8,)7C 
TAB13 
R8,)7E 
TAB13 
TAB3 
* boucle desassembl age 
DES MOV 3DRECR,RI 
JEQ DES30 
LI RO,)F000 
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DES9 


MOVB RO, 3)83D4 
LI RO,)01F0 
BLWP AATR 
LI RO,)03BF 
LI  R1,)2000 
BLUP 2VSBU 
DEC RO 
JOC DES31 
MOV. AADRS,RI 
C  R1,aADRS+2 
JLE DESE 
B  2DESF 
LI  R10,TLIGNE 
LI R9,)2000 
MOVE R9,#R10+ 
CI R10,TLIGNE+)50 
JNE DESi 
MOV SADRON,R1D 
JEQ DES23 
MOV RI,RB 
BL  AFH 
DATA TLIGNE+ 22 
MOV xRI,RE 
BL FH 
DATA TLIGNE+ 27 
CLR R10 
CRI, MDRETUCRID) 
JNE DES? 
MOV R10,R9 
SRL R9,1 
BL  MFETO 
DATA TLIGNE 
JMP_ DES2 
INCT R10 
R10,)03E8 
DES4 
R? 
#R1+,R4 
ACODE (R2) ,R4 
DESS 


LI  R10,TLIGNE+)5 
LI R9,DATA 

MOVB #R9+ ,#R10+ 

CI  R9,DATA+)4 

JNE DES7 

MOV  R4,RB 

MOVB 2HEXA+)17, 2TLIGNE+ A 
BL dAFH 

DATA TLIGNE+)B 

BLWP 9FVI 


DESN 
ACODE (R2) ,R4 
DES18 
R2,R10 
R10,1 
R9,TLIGNE+)5 
MOVB AMNEMOCR10) , xR9+ 
INC R10 
CI  R9,TLIGNE+)9 
JNE  DES22 
CI R2,)16 
J6T DES9 
BLUP 250 
BLWP 3F1D 
JMP_ DESN 
CI  R2,)1A 
JGT DES10 


DESI2 BLWP 250 


BLWP 3FIX 
JMP  DESN 
CI R2,E 
JGT DESi1 
BLUP 350 
BLWP 3FIV 
JMP  DESN 
CI  R2,)20 
JEQ DES12 
CI R2,)26 
JGT DES13 
BLWP 350 
BLWP 3FIX 
JMP  DESN 
CI R2,)2C 
JGT DESi4 
BLUP 4FIICR 
JMP  DESN 
CI R2,)46 
JGT DESI5 
BLUP 3FIIJ 
JMP  DESN 
CI R2,H4E 
JGT DESié 
BLWP 4FV 
JMP  DESN 
CI R2,)6A 
JGT DESi7 
BLUP 350 
8FVI 
DESN 
R2,)76 
DES19 
R4 ,R8 
R8,)1F 
DES18 
BLWP 9FVI 
JMP  DESN 
R2,)88 
DES18 
R4,R8 
R8,)10 
DES18 
R2,)7À 
DES20 
9FVI112 
DESN 
R2,)7E 
DES21 
8FVII11 
DESN 
DES21 9FVIT13 
DESN aDE50 
* sp format B (AI...) 
FUIII3 DATA REGSP 
DATA $+2 
R1 ,TLIGNE+)A 
SREGPP+)8,R2 
R2,R4 
R4,)F 
BL ÂFREG 
MOVB 9HEXA+)15,#R1+ 
MOV  3REGPP+2,R3 
INCT S8REGPP+2 
MOV  #R3,RB 
MOVB 9HEXA+)17,#R1+ 
MOV RI1,R10 
BL FH] 
SADRON , RD 
FVITIX 
#R3.R8 





vf | 


BL FH 


MOVB 2HEXACRB) ,#R7+ 
DATA TLIGNE+)2C 


FIICRO CLR R8 


MOVB SHEXA+)16,#R1+ 
MOVB 9HEXA+)17,#R1+ 
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FVIIIX BL  SENR 
RTUP 
* sp format 8 (STWP...) 
FVIII2 DATA REGSP 
DATA $+2 
MOV  3REGPP+2,R3 
INCT 8REGPP+2 
MOV  *R3,RB 


MOVB 9HEXA+)17,9TLIGNE+)A 


BL  3AFH 
DATA TLIGNE+)B 
MOV  ZADRON, RO 
JEQ FVIIIY 
MOV  #R3,RB 
BL FH 
DATA TLIGNE+)2C 
FVIIIY BL  3ENR 
RTUP 
* sp format B (LWPI...) 
FVIII1 DATA REGSP 
DATA $+2 
MOV  3REGPP+4,R4 
ANDI R4,)F 
LI RI,TLIGNE+)A 
BL MAFREG 
BL 9ENR 
RTWP 
* sp format 9 
FIX DATA REGSP 
DATA $+2 
MOVB 9HEXA+)15,#R1+ 
MOV  R2,R4 
SRL R4,é 
ANDI R4,)F 
MOV RÉGPP+4,RO 
RO ,)20 
FIX0 
dAFREGI 
FIXI 
FIX0 @FREG 
FIX1 SENR 


* sp format 4 
FIV DATA REGSP 
DATA $+2 
MOVB 3HEXA+)15,#R1+ 


* sp format 2 CRU 
FIICR DATA REGSP 
DATA $+2 
CLR R9 
MOV  3REGPP+8,R9 
ANDI R9,)FF 
LI  R7,TLIGNE+)A 
CI R9,)80 
JUT  FIICR2 
MOVB 3HEXA+)1B,#R7+ 
AI R9,)FF00 
ABS R9 
FIICR2 CLR R8 
R10,)64 
R10,R8 
R8,R8 
FI1ICRO 


LI 

DIV 
MOV 
JEQ 


R10,)A 
R10,R8 
RB,RB 

FIICRI 


MOVB 3HEXA(RB) ,#R7+ 
FIICRI MOVB 9HEXACR9) ,#R7 


BL 


RTWP 


2ENR 


* sp adr. gener. source 
50 


DATA RE 


G6SP 


DATA $+2 


LI 
MOV 
MOV 
ANDI 
JNE 
MOV 
ANDI 
BL 
JMP 
LI 
MOV 
S2C 
CI 
UNE 


R1 ,TLIGNE+)A 
8REGPP+8,R2 


RS,FFCF 
R2,Ré 
RS,Ré 
Ré,)10 
soi 


MOVB 2HEXA+ 14 ,xR14 


MOV 
ANDI 
BL 
JMP 
CI 
JNE 


R2,R4 
R4,)F 
MFREG 
SOF 
Ré, 30 
502 


MOVB AHEXA+)14,#R1+ 


MOV 
ANDI 
BL 


R2,R4 
R4,)F 
MFREG 


MOVB 9HEXA+)19,#R1+ 
JMP  SOF 


MOV 
INCT 
MOV 
MOV 
CI 
JEQ 
CI 
JEQ 
CI 
UNE 


JL 


JNE 
JMP 
MOVB 
SRL 
BL 
DATA 
MOV 
JEQ 
MOV 


BL 
DATA 
JMP 


AREGPP+2,R3 
AREGPP+2 
4R3,RB 
AREGPP+4 ,R7 
R7,)56 

Sox 

R7,)68 

soxx 


R7,)6A 
504 

RB, SADRS 
s04 

RB, SADRS+2 
504 


R9 
RB, SADRETOCR9) 
505 

R9 

R9,)03E8 

506 

504 
HEXA+)16,#R1+ 
R9,1 

MFETQ 
TLIGNE+)B 
SADRON,, RO 

SOF 

kR3,R8 


FH 
TLIGNE+)2C 
S0F 


S0F 


MOV R1,R10 
BL dAFHI 

MOV RIO,RI 

MOV ZADRON, RO 

JEQ 507 

BL dAFH 

DATA TLIGNE+)2C 
MOV R2,R4 

ANDI R4,)F 

JEQ S0F 

MOVB SHEXA+ 11 ,#R1+ 
BL SAFREG 

MOVB SHEXA+)13,#R1+ 
RTUP 


* sp format 1 destination 


FID 


FIF 


DATA REGSP 
DATA $+2 

MOVB 3HEXA+)15,#R1+ 
MOV R2,R3 

ANDI R3,)C00 

JNE F100 

MOV R2,R4 

SRL Rd,é 

ANDI R4,)F 

BL AFREG 

JMP FIF 

LI  RS,)F3FF 

MOV R2,R6 

S2C 

CI 


JNE 
MOVB 2HEXA+)14,#R1+ 
MOV R2,R4 

SRL R4,é 

ANDI R4,)F 

BL  MFREG 

JMP FIF 

CI Ré,)C00 

JNE F1D2 

MOVB 2HEXA+)14,4R1+ 
MOV R2,R4 

SRL R4,é 

ANDI R4,)F 

BL AFREG 

MOVB ZHEXA+ )19,#R1+ 
JMP FIF 

MOV GREGPP+2,R3 
INCT 3REGPP+2 

MOV xR3,R8 

MOVB 3HEXA+)16,#R1+ 
MOVB ZHEXA+ )17,#R1+ 
MOV RI,R10 

BL 

MOV 

MOV 

JEQ 

BL 

DATA TLIGNE+)31 

MOV R2,R4 

ANDI R4,)3C0 

JEQ FIF 

MOVB 3HEXA+)11 ,#R1+ 
BL MFREG 

MOVB ZHEXA+)13,#R1+ 
BL  2ENR 

RTUP 


* sp format 2 adr. relative 


FIIJ 


DATA REGSP 
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DATA $+2 
MOV REGPP+B, RO 
ANDI RO,)FF 
JNE F11J0 
MOVB 2HEXA+>18, 2TLIGNE+)A 
MOVB SHEXA+)19, STLIGNE+)B 
MOVB 2HEXA+)1A, 2TLIGNE+)C 
FIIJF 
AREGPP+2,RI 
aCADRR 


R9 
R10, SADRETQ(R9) 
FIIJ2 
R9 
R9,)3E8 
JNE FIlJi 
MOVB 2HEXA+>17, ATLIGNE+)A 
MOV RIO,RB 
BL AFH 
DATA TLIGNE+)B 
JMP FIIJF 
FIIJ2 SRL R9,1 
BL SAFETO 
DATA TLIGNE+)A 
FIIJF BL  9ENR 
RTWP 


* sp format 5 
FU DATA REGSP 
DATA $+2 
MOV  9REGPP+8,R4 
ANDI R4,)F 
LI  R1,TLIGNE+)A 
BL 2ÂAFREG 
MOVB 9HEXA+)15,#R1+ 
MOV  3REGPP+8,R4 
SRL R4,4 
ANDI R4,)F 
BL SAFREGI 
BL  9ENR 
RTWP 
* sp format 6 
FUI DATA REGSP 
DATA $+2 
BL  2ENR 
RTUP 
* sp saisie nombres hexa 
SAISIE MOV #R11+,R5 
SAISO MOV R5,R0 
LI R1,)2000 


SAIS1 


JMP 
SAISCL DEC R3 
JNE 


BLWP USB 

LI R1,3 

MOVB 2TCLAV(RI) ,RB 
JEQ SAISO 

DEC RI 

JOC SAISV 

RT 

CB ARTCLAW,3TFS 
JNE SAISS 

MOV R2,R2 

JEU SAÏS3 

MOVB #R7,RI 

BLWP USÈW 

DEC 

DEC 

DEC 

JMP_ SAIS3 

CB  ARTCLAW, 3TFD 
JNE SAISé 

CI  R2,3 

JEQ SAÏS3 

MOVB *R7+,R1 
BLUP ASE 

INC 

INC 


ARTCLAU, SHEXA+)A 
GAIS0 
ARTCLAV, HEXA+)F 
SA1S0 

MOVB 2RTCLAW,RI 

MOVE R1 ,#R7 

BLUP USB 

CI  R2,3 

JEQ SAÏS3 

INC RO 

INC R2 

INC R7 
SAIS3 


SAIS3 
MOV Ré,Ré 

JEQ SAÏSCO 

CLR Ré 

MOVB 2HEXA+)1C,RI 
BLUP USE 

JM SAIS2 


SAISCO SETO Ré 


MOVB 4R7,RI 
BLWP SUSBU 
JMP_ SAIS2 


* sp conver, ASCII/binaire 


CARN 


LI  RI,TCLW 

CLR RO 

CLR R3 

LI  R4,)4C 

CB  *Ri,2HEXA+9 
JLE CARNI 

AB  2CODE(R4) ,#R1 


MOVB 


UNE  CARN2 

RT 
* sp affichage registres 
AFREG MOVB SHEXA+)12,#R1+ 
AFREGI CLR R3 

LI R1D,)A 

DIV R1D,R3 

MW R3,R3 

JE AFREGO 

MOVB SHEXA(R3) ,#R1 + 
AFREGO MOVB 9HEXA(R4) ,#R1+ 

RT 


* sp calcul adr. relatives 
CADRR MOV RI,R10 
CLR R9 
MOVB 9REGPP+9,R9 
SRA R9,7 
A  R9,R10 
RT 
* sp verif. si adresse 
* dans table etq 
VEXADR CI  R3,203E8 


R10 , SADRS+2 
JH VEXF 
CLR R9 
C  R10,SADRET@(R9) 
JEQ VEXF 
INCT R9 
CI R9,)3E8 
UNE  VEXO 
MOV R10,38ADRETG(R3) 
INCT R3 
VEXF RT 
* cp affichage etq 
AFETQ MOV %#R11+,R7 
MOVB 9HEXA+)10,*xR7+ 
CLR R8 
LI  R10,)64 
DIV RID,RB 
MOVB SHEXA(RB) ,#R7+ 
CLR R8 
LI R10,)A 
DIV R10,RB 
MOVB 9HEXA(RB) ,xR7+ 
MOVB 9HEXA(R9) ,#R7 
RT 
* sp affichage nombres hexa 
AFH MOV #R11+,R10 
AFHI LI RO,)C 
AFHO MOV R8,R9 
SRC R9,0 
ANDI R9,)F 
MOVB 9HEXA(R9) ,#R10+ 
MOV  RO,RO 
JEQ AFHF 
DECT RO 
DECT RO 
JMP  AFHO 
AFHF RT 
* sp enregistrement ligne 
ENR MOV 3DRECR,RI 
AFECR 
ENR2 R1,)50 
R2,TL]GNE + >4F 
R3,)2000 
ENRI 
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DEC R2 

JMP ENRI 

LI  RO,PAB+5 
SUPB RI 

BLUP 2VSBU 

LI  RO,TPAB 
LI Ri,TLIGNE 


Ré,PAB+9 
MOV Ré, SPLONG 
LI R1,)1200 
LI  RO,PAB+I 
BLUP AVSEU 
CLR RO 
MOVB RO ,9ETAT 
BLWP 3DSRLNK 
DATA 8 
LI  RO,PAB#i 
BLWP aVSBR 
ANDI R1,)E000 
JNE DSKS 
RT 
* sp affichage sur ecran 
AFECR MOV STABLEI ,RO 
LI RI,TLIGNE 


RO, >28 

RO, 2TABLEI 
RO, >03C2 
AFÉCRO 


RO ,2 


RT 
AFECRO LI 

MOV RO, STABLE! 
AFECR2 BLUWP 2KSCAN 


MOVB RO, 2)83D4 
RO,>01E0 


LI R1,)D000 


BLWP aUSBW 

LWPI REGPP 

B  aDESAR 
AFECR1 CB  9RTCLAV, 3TESP 
UNE  AFECR2 
LI R0,0040 
LI R1,22000 
LI R2,0300 
MOVB RO ,3)8C02 
SWPB RO 
MOVB RO, 38002 


NOP 
AFECR3 MOVB R2,3)8C00 
DEC R2 


UNE  AFECR3 
RT 
*% sp si disq. saturee 
DSKS LI RO,)02A8 
LI  R2,TEXTE4 
DSKSO MOVB %xR2+,RI 
JLT DSKS1 
BLWP 3VSBUW 
INC RO 
JMP  DSKS0 
DSKSI LI  R0,)02E4 
LI  R2,TEXTE3 
DSKS2 MOVB #R2+ ,RI 
JLT DSKS3 
BLWP USB 
INC RO 
JMP  DSKS2 


* fermeture fichier 

DESF MOV S3DRECR,RI 
JNE DESFO 
MOVB WRCL+1,RI 


MOV Ré, 3PLONG 
BLUP 2DSRLNK 
DATA 8 
B  2DESAR 
DESFO BLWP 2KSCAN 


À vous de programmer 


Vous connaissez certainement la cé- 
lèbre émission de télévision ‘Des 
chiffres et des lettres”. Une partie de 
ce jeu est basé sur la reconstitution 
d'un nombre choisi aléatoirement, à 
l’aide d’autres nombres choisis de la 
même manière. 


Nous vous proposons cette fois 
d'écrire un programme capable de 
trouver la solution des jeux pendant 
le cours de l'émission précitée et, si 
possible, avant les candidats. 


Des nombres... un ordinateur... cela 
paraît très simple mais, lorsque vous 


CB  3RTCLAW, STBACK 
UNE DESFO 
LI RO,)E000 
MOVB RO, 3)83D4 
LI RO,)01E0 
BLWP SUWTR 
LI RO,)0300 
LI  R1,)D000 
BLUP AV6BU 
B 2DESAR 
* vers edit/ass ou mini-m. 
RETOUR MOVB 3SARGPL, 3)9C02 
MOVB 3SARGPL+1,2)9C02 
CLR RO 
MOVB RO ,9ETAT 
MOV SADRRET,RI1 
RT 
* sp pour saisies options 
ON LI R4,)120 
ONO BLWP 9KSCAN 
MOVB 3ETAT,R5 
JEQ ONC 
MOVB 3RTCLAW ,R1 
CB  R1,S9TENT 
ONI 


R1 ,3TBACK 
ON? 
ADESAR 
CB R1,2T0 
JEQ OW 

CB RI,3N 
JNE  OND 
MOVB R1 ,xR2 


JMP 

DEC 

JNE 

SRC 

JOC 

MOVB #R2,R1 
JMP. ONCI 
MOVB 9HEXA+)1D,RI 
BLWP AUSEU 
JMP_ ON 
END DESA 


JNE 
RT 
CB 
UNE 
B 


vous serez penché sur le problème, 
vous pourrez constater que trouver la 
solution n’est pas chose aisée. 


Au moment de votre départ en va- 
cances, n'oubliez pas votre TI! 


Bon courage... = 
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Cette nouvelle version (voir numéro 
1) écrite en Basic Etendu autorise 
l’utilisation du synthétiseur de paro- 
les. 


Pour ceux qui ne connaissent pas 
encore ce classique, nous exposons 
les règles du jeu. 


Le ‘terrain de jeu” est composé de 
trois tours. Sur la première sont em- 
pilés des disques de diamètres diffé- 
rents et il faut reconstituer cette pile 
sur l’une des deux autres tours. 

Pour ce faire, les disques doivent être 


Les tours de Hanoi 


tre, sans jamais poser un disque sur 
un autre plus petit. 


Vous pouvez choisir le nombre de 
disques et ainsi faire varier le niveau 
du jeu. Si la solution du problème 
est rapidement trouvée pour trois dis- 


Daniel Masse 


ques, il n'en va pas de même si 
votre choix se porte sur sept disques, 
car les choses se compliquent sérieu- 
sement. 


déplacés un par un d’une tour à l’au- 


100 
110 


LOREXEERERREEREERREEREEX 

! 
120. ! 

; 

; 

1 


*%* Les tours de Hanoi * 
HRREXHEEEEEREERELEEEEX 
x Basic Etendu + 
RAHEEHEEREEEREREEREEIRX 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


CALL CLEAR 
GOSUB 1150 
GOSUB 1260 
GOSUB 1420 
GOSUB 1260 
GOSUB 1150 


DIM T(7,3) 
CHAR(128,"8040707F3F3F1F") 
CHAR(136,"002418FFFFFFFF") 
CHAR(129,"01020EFEFCFCFE") 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
380 CALL 
390 CALL 
3,4) 
400 FOR 1=0 TO 2 

410 FOR J=0 TO ! 

420 CALL HCHAR(13+J,6+1%9,112) 

430 CALL HCHAR(13+J,7+1%9,113) 

440 CALL HCHAR(13+J,8+1%9,114) 

450 CALL HCHAR(15+J,6-2#J+9%] ,120) 
460 CALL HCHAR(15+J,5-2x%J49%1,121) 
470 CALL HCHAR(15+J,8+2#J+9%1 ,122) 
480 CALL HCHAR(15+J,9+2x%J49%1,123) 
490 NEXT J 

500 CALL HCHAR(15,7+9%1,124) 

510 CALL HCHAR(16,5+9%1 ,124,5) 

520 NEXT 1 

530 CALL HCHAR(17,2,124,29) 

540 


CHAR(130 ,"08040707030301") 
CHAR(137,"004281FFFFFFFF") 
CHAR(106,"004080FFFFFFFF") 
CHAR(131 ,"1020E0E0C0C080") 
CHAR{112,"0105070301010101") 
CHAR(113,"FFFFFFFFFFFFFFFF") 
CHAR{114 ," 80A0E0C080808080* ) 
CHAR(120,"030F3FFFFFFFFFFF") 
CHAR(121 ,"00000000030F3FFF") 
CHAR(122,"COFOFCFFFFFFFFFF") 
CHAR(123,"00000000C0F0FCFF") 
CHAR(124,"FFFFFFFFFFFFFFFF") 
SCREEN( 6) 
COLOR(13,11,1,14,10,1,11,13,1,12 
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HR$ (136) &CHRS# (136) &CHRS (1 36) &CHRE( 1 26)& 

CHR$(136)&CHR$ 4 129) 

550 ÀA$(2)=CHR$S(130)&CHRS(137)&CHR$(137)8&C 
HR$(137)&CHR$(137)8&CHR$S(137)&CHR$(137)& 
CHR$(137)&CHR$ (131) 

060 FOR I=i TO 3 

970 ASC2*1+1)=SE6GH(A$(1),1,8-2*I)&CHR#(12 
9) 

D60 AS(2*1+2)=SE6GH(AS(2) ,1,8-2*])8&CHRCIS 
1) 

590 NEXT I 

600 REM JEU 

610 DISPLAY AT(20,0):"COMBIEN DE DISQUES 
(SA 7) DUT Nos SN PAR ES C0. #5 PO 

R I1=1 TO 7 :: FOR J=1 TO 3 :: T(I1,J)=0 :: 
NEXT J :: NEXT I 

620 IF SS THEN CALL SAY("#HREADY TO START# 
.NUMBER OF DISKETTE") 

630 ACCEPT AT(20,28) :NBD 

640 FOR I=é TO 12 :: DISPLAY AT(I,1):" * 
:: NEXT 1! IF NBD<3 OR NBD)7 THEN éi0 
650 FOR I=i TO NBD 

éé60 DISPLAY AT(13-I1,1+INT((1-1)/2)):A$(1I) 
670 T(I,1)=I 

680 NEXT 1! 

690 DISPLAY AT(20,1):"TOUR DE DEPART ?* 
700 CALL KEY(0,K,S):: IF S=0 THEN 690 ELS 
E TD=VAL(CHRS(K) ) 

710 IF T(1,TD)=0 AND SS=1 THEN CALL SAY{" 
HYJHAT LWAS THATH") 

720 IF T(1,TD)=0 THEN DISPLAY AT(22,1):"C 
ETTE TOUR EST VIDE..." :: GOTO 700 

730 IF (TD<i OR TD)>3)AND SS=1i THEN CALL S 
AYC"HUHAT UAS THATH") 

740 IF TD{1 OR TD)}3 THEN DISPLAY AT(22,1) 
:"COMPTEZ JUSQU’À 3..." :: GOT 570 

750 DISPLAY AT(22,1):" " 

760 DISPLAY AT(20,16):TD 

770 DISPLAY AT(21,9):"D'ARRIVEE ?" 

780 CALL KEY(0,K,S):: IF S=0 THEN 770 ELS 
E TA=VAL(CHRS(K) ) L 
790 IF TA=TD AND SS=1 THEN CALL SAY("HUHA 
T WAS THAT#") 

800 IF TA=TD THEN DISPLAY AT(22,1):"LE SU 
R-PLACE VOUS AMUSE ?" :: GOTO 770 


A$S(1)=CHRS$S(128)£8CHRS(136)8&CHRS( 136)8&C | 810 IF (TAKI OR TA)3)AND SS=1 THEN CALL S 
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AYC"HUHAT AS THATH") 

820 IF TA{I OR TA)3 THEN DISPLAY AT(22,1) 
:: GOTO 770 

DISPLAY AT(22,1):" 

DISPLAY AT(21,19):TA :: 

FOR J=1 TO NBD 

IF T(J,TD)=0 THEN 880 

NEXT J 

DD=J-1 

FOR J=i TO NBD-1 

IF T(J,TA)=0 THEN 920 

NEXT J 

DA=J :: IF DA=1 THEN 950 

IF T{DD,TD) (T(DA-1,TA)AND SS=1 THEN C 

ALL SAY("YOU CAN4NOT DO THAT") 

940 IF T{DD,TD) (T{DA-1,TA)THEN DISPLAY AT 

(22,1):"MOUVEMENT INTERDIT" :: GOTO 690 

950 K,T{DA,TA)=T(DD, TD) 

960 L,T(DD,TD)=0 

970 DISPLAY AT(13-DA,1+INTC(K-13/2)+9%(TA 

-1))SIZECLENCAS(K) ) ) :A$CK) 

980 DISPLAY AT(13-DD,1+INT((K-1)/2)+9#CTD 

-1))SIZE(LEN(AS(KID):" 

990 1F T(1,1)=0 AND T{1,22=0 THEN 1000 EL 

SE 690 

1000 GOSUB 1260 

1010 DISPLAY AT(20,1):"BRAVO, VOUS AVEZ R 

EUSSI EN" ,C;"COUPS" 

1020 IF SS THEN CALL SAY("HGOOD WORKH") 

1030 CM=2*NBD-1 

1040 1F C=CM AND NBD(5 THEN 1110 

1050 IF C=CM THEN 1130 

1060 IF SS THEN CALL SAY("BUT YOU CAN PLA 

Y LESS MOVE. #TRY AGAIN#") 

1070 DISPLAY AT(22,1):"VOUS POUVEZ FAIRE 

MIEUX" ,"MINIMUM =" ;CM;"COUPS" ," TAPEZ PO 

UR REJOUER" 

1080 CALL KEY(0,K,5) 

1090 1F S=0 THEN 1080 

1100 GOTO 610 

1110 IF SS THEN CALL SAY("VERY HGOOD WORK 

#; YOU CAN4NOT DO IN LESS MOVE") 

1120 DISPLAY AT(22,1):"VOUS NE POUVEZ FAI 

RE MIEUX" , "ESSAYEZ" ;NBD+1 ; "DISQUES" , "TA 

PEZ POUR REJOUER" :: GOTO 1080 

1130 IF SS THEN CALL SAY("UERY #G00D WORK 

#; YOU FIND THE1 WAY") 

1140 DISPLAY AT(22,1):"VOUS AVEZ COMPRIS_ 

LE TRUC" ,"ESSAYEZ DE TROUVER LA LOI" ,"T 

APEZ POUR REJOUER" :: GOTO 1080 


C=C+1 


920 
930 


1150 REM OISEAU 

1160 CALL MAGNIFY(3):: CALL CLEAR 

1170 CALL CHAR(40,"08060301017F0300000000 
0000000000000080C0F2FCF80000") 

1180 CALL CHAR(44,"0000007F0301020C000000 
0000000000000002FCF8C0800000") 

1190 CALL SPRITE(#1,40,5,50,1,0,15):: 
1200 FOR J=i TO 19 

1210 FOR 1=i TO 50 :: NEXT 1 

1220 CALL PATTERN(HI ,42+K) 

1230 K=-K 

1240 NEXT J :: 
CHARSET 

1250 RETURN 
1260 REM MUSIQUE 

1270 CALL SOUND(70,262,2) 

1280 CALL SOUND(70,196,2) 

1290 CALL SOUND(70,262,2) 

1300 CALL SOUND(70,330,2) 

1310 CALL SOUND(70,392,2) 

1320 CALL SOUND(70,330,2) 

1330 CALL SOUND(70,262,2) 

1340 CALL SOUND(70,330,2) 

1350 CALL SOUND(70,349,2) 

1360 CALL SOUND(70,294,2) 

1370 CALL SOUND(70,247,2) 

1380 CALL SOUND(70,294,2) 

1290 CALL SOUND(150,262,2) 

1400 CALL SOUND(150,523,2,659,2,1047,2) 
1410 RETURN 

1420 REM PRESENTATION 

1430 CALL CLEAR 

1440 DISPLAY AT(1,G)D:"XXEXEXEKXEREEXXX" 
1450 DISPLAY AT(2,6):"*TOURS DE HANOI*" 
1460 DISPLAY AT(3,GD:"HKEEXERERERRERXE" 
1470 DISPLAY AT(é6,5):"Vous devez faire pa 
sser","de 3 a 7 disques de la je a","la 
3e tour." 

1480 DISPLAY AT{9,5):"Vous ne pouvez plac 
er","un disque sur un autre plus*,"peti 
t." 

1490 DISPLAY AT(13,5):"Essayez de reussir 
avec" ,"un nombre minimum de coups." 

1500 DISPLAY AT(17,5):"TAPEZ [1] SI VOUS 

AVEZ LE" ,"SPEECH SYNTHESIZER." 

1510 CALL KEY(O,K,S) 

1520 IF S=0 THEN 1510 

1530 IF K=49 THEN SS=i ELSE SS=0 

1540 RETURN 


K=2 


CALL DELSPRITE(#1):: CALL 


Choisissez vos couleurs 


Pascal Thomas 


Vous savez sans doute que la cou- 
leur dans laquelle on programme ne 
peut être modifiée (noir sur cyan; ce 
qui n’est pas très agréable).  : 

En tapant, en Basic Etendu et en 
mode immédiat, la ligne suivante 
avant d'écrire ou de charger un pro- 


gramme, vous pouvez programmer 
dans la couleur de votre choix : 


CALL SCREEN(ECR):: FOR I1=0 
TO 14:: CALL COLOR(I CAR, 1) :: 
NEXT 1 :: RUN 


Après avoir tapé ENTER”, le mes- 
sage : 

x WARNING NO PROGRAMME 
PRESENT x 


apparaît et les couleurs instituées res- 
tent à l'écran. 


Toutes les commandes d'édition gar- 
dent la couleur, seule une erreur 
dans la syntaxe des instructions pro- 
voque la remise en place des cou- 
leurs initiales. 

Il est évident qu’une fois le pro- 
gramme exécuté, il sera impossible 
de retrouver les couleurs choisies. 
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NDLR. : ce programme, écrit en 
Basic TI, occupe toute la mémoire 
vive et n'est donc pas utilisable si un 
contrôleur de disquettes est raccordé 
au TI La classique commande 
"CALL FILES (1) ne suffisant pas, 
les heureux possesseurs de lecteurs 
de disquettes devront supprimer une 
partie des mots et modifier les lignes 
1390 et 1400 en conséquence. 


"Trouvez le bon mot” est un jeu dé- 
rivé du Mastermind. Les couleurs 
sont ici remplacées par des caractères 
utilisés pour former des noms 
communs de cinq lettres tirés du dic- 
tionnaire. Le programme comprend 
une bibliothèque de 1026 mots sto- 
ckés sous forme de DATA, ce qui 
laisse très peu de chance de tomber 
deux fois de suite sur le même mot. 


Utilisation du 
programme 


Une fois le décor planté, le pro- 
gramme vous demande de patienter 
quelques instants. Ceci correspond 


Trouvez le bon mot 


Marianne Sutz 


au temps nécessaire pour le choix 
aléatoire d’un mot. Lorsque le TI af- 
fiche "PRET !”, vous pouvez entrer 
votre premier essai. Le curseur, placé 
dans le coin supérieur gauche de 
l'écran, vous indique où sera affichée 
la lettre frappée au clavier. Vous 
pouvez déplacer ce curseur vers la 
droite en agissant sur la touche >”, 
et vers la gauche avec ”<” (atten- 
tion, il s’agit des symboles ‘supé- 
rieur” et ‘inférieur’ et non des tou- 
ches fléchées). La touche 0” (zéro) 
efface la lettre située sous le curseur, 
qui se déplace ensuite d'une position 
vers la droite. La toucie ENTER” 
permet la validation quelle que soit la 
position du curseur à condition, bien 
sûr, que les cinq positions soient oc- 
cupées par des lettres. 


Le programme autorise quinze essais, 
ce qui est, en règle générale, large- 
ment suffisant. Après la validation de 
chaque essai, le nombre de lettres 
bien placées sera affiché ainsi que, si 
nécessaire, des flèches indiquant par 
rapport à quel essai vous avez fait 


une ou plusieurs erreurs de logique. 
Une erreur de logique survient lors- 
que vous donnez une réponse im- 
possible. Par exemple : 


ACIDE - Une lettre 
D E BUT - Aucune lettre 


Dans ce cas, une flèche indiquant 
une erreur de logique sera placée à 
côté du mot ACIDE puisque vous 
aviez une lettre bien placée dans ce 
mot alors que, dans le mot DEBUT, 
aucune lettre ne correspond à une 
de celles constituant le premier essai. 


Dans le cas où la recherche du mot 
vous poserait quelques problèmes, 
vous pouvez presser la touche “AID” 
(FCTN-7) et abandonner ainsi la par- 
tie. 

Si le mot choisi par l'ordinateur n'est 
pas découvert au terme du quin- 
zième essai, il sera automatiquement 
affiché et vous pourrez soit quitter le 
programme, soit débuter une autre 
partie. 


100 REM XX#X#XKEHEEEMEREREXX 

110 * Trouvez le bon * 

120 % mot * 

130 HHXERKERELXEEREREREX 

140 x Basic TI x 

150 HÉXXREREEEEEEEEEEXEX 

160 

170 DATA 0000001F1F181818,000000FFFF,0000 
00FFFF181818,000000F8F8181818,1818181F1 
F,181818FFFF,181818F8F8 

180 DATA 1818181818181818,4,4,12,12,12,12 
116,16,16,16,16,8,10,11 

190 DATA tabac ,barre ,hampe ,KayakK masse ,ve 
nin,germe ,idiot,index,grain,magma,ecart 
datte,rubis,arbre,jaune,recif 

200 DATA mauve, ,toile,otite,beige,galop,pa 
nne ,matin,sosie,ruche,tribu,verbe ,arabe 
spoire,chene,satin,bille,Kyste 

210 DATA hamac ,malle , fugue ,coude ,hiver ,mo 
rse,voile,tafia,larme,email,poids,stade 
marge ,soeur ,copie,obole,reine 

220 DATA joint ,noyer ,huche ,epine,fluor ,pe 
nte,bulbe,valve,devot,style ,quepe ,niche 
srepas,arene ,etude ,voute ,bevue 

230 DATA choix,stockK,niece,train,forum,re 
cit,Kapok,froid,delai,jouet berge ,antre 
saffut,mixte,eclat,telex,soute 

240 DATA autel,botte,agate,voyou,ecrin,ci 
vil,debit,raton,stand,fouet,jarre,trone 
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veine diese,atoll seuil ,banne 

250 DATA essai rotor ,tuyau,xenon,kKefir,as 
tre ,abats,harem,ultra,texte chair ,gelee 
‘adieu,droit,merle,balle,saint 

260 DATA aieul,alize,ileon,miche,chere,ri 
cin,blanc,vanne tante sable ,usuel ,dique 
noyau ,foyer patte ,conte,talus 

270 DATA velin,usure,sming,radis,quota,il 
eum,ebene brise ,rodeo,savon,ozone,liane 
,genie,drift,toast ,chaud,monde 

280 DATA nuage ,usage folie purge ,cosse ,de 
ces,jante metal ,trace,arret,acier ,limon 
‘bulle, ,biere,echec,icone,serpe 

290 DATA genet,valet ,neveu,alque ,avare ,ma 
ree,loque,evier,tache,salon,plant,elite 
,opera,cedre,cible,zebre, urine 

300 DATA panse poule ,ocean,darne ,rabot ,hy 
ene ,belon,fique,otage,avion,jeton,titre 
,serie,axone,amour ,canot,nurse 

310 DATA gilet,loupe ,hertz,album,pique,na 
vet,zeste,olive,felin,acide,natte,canit 
igloo,somme,tasse ,wagon,effet 

320 DATA rayon,argot,rivet,orgie,bijou,gc 
mme ,litre,dedit,etain,proie,nonne,paire 
sabot ,genou,avant ,adret ,verve 

330 DATA bysus,xylol,cerne,fable,potin,ai 
gle,major ,avoue ,ixode total ,xyste route 
samure ,metro,butin,baton,gaffe 

340 DATA slave ,tanne ,harpe,opium,doyen,ca 
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rat,fente,diode,penis,bourg,atome ,veste 
srotin,etana,table, sujet gamin 

350 DÂTA armee ,hetre ,ether ,;motte ,cause ,de 
vin,caget scout ,fumet,talon,orvet,pince 
debut ,avril,spire,bison,glace 

360 DATA macon,terre,jatte,jeune ,anier,et 
ape ,hutte,vagin,tonne ,cocon,gigot,pompe 
desir ,malin,baume ,sepia,quart 

370 DATA actif,morue ,phase ,cargo,rebut,bu 
gle,enjeu,sonde,jalon,yacht douze ,apnee 
sfilon,capot,cumul ,ogive moine 

380 DATA salut,dinde,repos,ebats,jable,is 
sue ,bemol ,rabat ,sabre ,oasis,lagon,geant 
decor ,caban,palme manne ,azote 

390 DATA weber ,fruit,pavot crane ,doque ,ob 
jJet,mythe,tesla,arche ,negre,latex,brave 
salgie,hymne,salin,soupe ,renne 

400 DATA ictus,abime ,amont ,moyen,ladre ,ec 
ran,crime,cacao,femme ,perle,joyau,divan 
ronde ,herse ,aloes,qorae,sauae 

410 DATA amibe ,neige ,radar ,fauve ,lisse,]lo 
cal,colza,norme ,heron,peche,biche,virus 
,Sapin,photo,civet,horde,flirt 

420 DATA engin,coeur ,appel ,javel,sauge ,ap 
pui,tamis,fosse,alose ,parot,ampli,amine 
stronc,farce ,qalet,queue usine 

430 DATA jabot ,mache ,bruit,terme,laine ,de 
Ita,pacte score ,image,pivot,carte, grief 
dague ,abord,buste ,badin,firme 

440 DATA cycle,hibou,bazar ,atout ,moyeu,si 
nus,gazon,t>yran,odeur ,jeudi ,agent ,mante 
boite ,baque ,plomb,calme,agape 

450 DATA fakir ,revue ,debat ,chape ,orque ,no 
ble,prune,burin,ancre ,maire,hotel ,tison 
,Scalp,ibere,gibet ,brune ,basse 

460 DATA ecrit ,magot,cagot,rouge ,pluie,fe 
sse ,noise,alibi,avers,palet,douve,alise 
anche ,orage ,garde ,clown,reqgne 

470 DATA halle,ideal ,amide ,exode ,ruban,ta 
pis,cadet ,court,patin,osier dance ,autan 
,beton,sirop,lacet,louve ,anode 

480 DATA pareo,creme benne ,verge,timon,se 
cte,habit,decan,envol ,aphte ,prime,chant 
trait ,gerbe ,herbe ,bande lotus 

490 DATA Koala,extra,encre ,bonze ,bache ,su 
1Ky,haine,lotte,groom,divin,tatou,chaux 
Plume ,aorte,frene,nappe,vison 

900 DATA clone, ,cygne ,duree,oxyde ,manie,ta 
rge ,ambre,lupin,lache ,bonne ,eleve ,havre 
,Sceau,sucre,ruine,grace,vizir 

910 DATA appat meute ,levre ,ergot,coing,fo 
nte,fagot place ,ovule,delit,regie,hydre 
,boule,tonus,siege ,cohue,lance 

920 DATA akene , tombe ,bahut,sante ,mardi ,ga 
lbe ,wiskKi ,ecale ,ragot,humus,neant,oisif 
,egide,varan,gemme ,donax,broie 

930 DATA crack,cobra,caduc,houle ,agres,ap 
lat,atele,falot,franc,recto,selle,jarde 
‘salpha,flore,plage,pleur ,balsa 


940 DATA drome,vulve,tente,etole,arien,li 
ege,ajonc ,macre ,gaude ,ecole,mille ,orobe 
schope ,darse ,tuile,theme,lapon 

990 DATA begue ,begum,benet ,berce,liste,su 
ite,jupon,fuite,crabe daube ,ville,beret 
,bizut,aviso,biset,bicot,biais 

960 DATA annee ,banco,verin,heure,lange,un 
ite,piece,fanon,frere ,nuque,laque ,acces 
‘arcon,gnome ,valse,tapir ,truie 

9/0 DATA ombre ,peste ,fiche ,urane ,match,bi 
ble ,deare,ranch,zabre,salve,stele,piton 
,Ssayon,sueur ,shakKo,plein,yucca 

980 DATA store ,amble ,honte,depit,mince ,em 
ule,urate,tempe ,roman,geste ,oside,catch 
livre ,palan,fanal ,antan,toise 

990 DATA mufle ,aodet ,eloge,diete ,rhume,va 
rve,imago,aiqri,essor ,volte ,grume ,tarin 
,beryl,marin,poele,crise,chyme 

600 DATA alese,argon,latin,ferme,fusee ,ra 
ble,sourd,achat avoir ,faine,perte ,breme 
‘heros,curie,clair depot ,vaque 

610 DATA uvule,lutte ,obese ,messe ,groin,et 
ron,marne ,cabus,colle,diner ,torse,tanin 
logis,sicle,ajout,arome borne 

620 DATA laser ,pacha,polka,fille,furie,ja 
ule,large,ajour ,avent ,grade,verre,terne 
,Cabas,carne ,epure,ouate plate 

630 DATA breve ,berne ,devis,regal ,heurt,se 
rae,punch,pelle,siqne ,saule ,sprat ,potee 
,bilan,bigle,final,arqgus,accul 

640 DATA alios,joncs,tripe,recul,aolfe,ni 
tre,cabot,cache,puree ,forme ,abces,agree 
stemps,butte ,stere,juste,qreve 

650 DATA harde ,vesse ,utile,egard,abaca,gl 
ane ,datif,tarse,balai ,macle ,poete ,corde 
canne ,hotte ,abois,alene,]lourd 

660 DATA adent,salol,strie,alpax,coppa,pr 
ose ,palot,bigot,huppe,culex,capre,vigne 
taupe ,auget ,yeuse ,laize,round 

670 DATA rafle ,murex,armet ,carex,crete,du 
che,these,lapin,sacre ,sphex,amant ,azyme 
buron,agnat,zeine,lopin,paume 

680 DATA nabab,joute ,lunch,aimee ,genre,qu 
ppy,vouge,tomme ,cahot,cuvee ,eveil,passe 
faste frise ,hevea,sioux poste 

690 DATA semis,aleph,prude ,butee,banjo,fr 
ont,aspic,homme ,demon metre ,envoi ,jetee 
stiers,riche,gifle,orque,caste 

700 DATA coche,corps,axile,armon,allee ,ab 
out ,bravo,bombe ,bidet,bagou,staff,sport 
,Spore ,seche ,gouge ,grand,gibus 

710 DATA envie ,mucus,mulet ,matou,melon,de 
tte, deuil,delco,rente,renom,rebus,haire 
shuile,poing,point,pouce poupe 

720 DATA filet,tenia,trois,ordre ,nasse ,no 
tus,yacca,xerus,wharf,vesce ,vanda,freon 
sbuvee ,cagne ,copte ,corso,couac 

730 DATA egout,isart,frais,grive,atlas,bo 
sse,goule,pagne ,union,grele,ongle,cabri 
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,ahuri,lecon,magie,brume,asile 

740 DATA futur ,radio,quete,chute,fusil,fl 
air ,bocal ,oncle,athee ,beche,fenil,cable 
,coque ,gypse ,bidon,carme,idole 

750 DATA lycee,gaine ,boeuf ,l ampe , faune ,va 
che,quide ,galon,doigt,jambe ,bride,xeres 
,blond,cidre,tigre,epice,seize 

760 DATA tenor ,angle,hache ,micro,tango,om 
ega,saxon,silex,dalle,zloty,faute,nacre 
sadage ,poker ,furet ,motel ,paria 

770 DATA cirre,coton,scion,arete ,augee ,at 
oca,carpe ,ecume ,buche ,appas,baril,serum 
,whist,aulne,totem,ecrou,volve 

780 DATA hypne,flash ,megot doute ,;maser ,es 
ter ,degat,label,fiole,ozene,myrte,purin 
,foret,patio,stage cadre ,carde 

790 DATA epieu,enfer ,pomme ,fumee ,frein,to 
nka 

800 CALL CLEAR 

810 CALL SCREEN(5) 

820 OPTION BASE 1 

830 DIM E$(15,5) ,L$(9) ,E(15) 

840 FOR B=152 TO 159 

850 READ B$ 

860 CALL CHAR(B,B$) 

870 NEXT B 

880 CALL CHAR(136,"008282FEFE") 

890 CALL CHAR(144,"0010307FFE7F301") 

900 FOR B=3 TO 1é 

910 READ C 

920 CALL COLOR(B,C,1) 

930 NEXT B 

940 CALL HCHAR(1,3,153,29) 

950 CALL HCHAR(18,3,153,29) 

960 CALL HCHAR(19,3,153,29) 

970 CALL HCHAR(24,3,153,29) 

980 CALL VCHAR(2,2,159,22) 

990 CALL VCHAR(2,12,159,16) 

1000 CALL UVCHAR(2,14,159,16) 

1010 CALL VCHAR(2,29,159,16) 

1020 CALL VCHAR(2,32,159,22) 

1030 CALL HCHAR(1,2,152) 

1040 CALL HCHAR(19,2,152) 

1050 CALL HCHAR(1,12,154) 

1060 CALL HCHAR(1,14,154) 

1070 CALL HCHAR(1,29,154) 

1080 CALL HCHAR(1,32,155) 

1090 CALL HCHAR(19,32,155) 

1100 CALL HCHAR(18,2,156) 

1110 CALL HCHAR(24,2,156) 

1120 CALL HCHAR(18,12,157) 

1130 CALL HCHAR(18,14,157) 

1140 CALL HCHAR(18,29,157) 

1150 CALL HCHAR(18,32,158) 

1160 CALL HCHAR(24,32,158) 

1170 C=30 

1180 FOR B=i TO 15 

1190 L=B+1 

‘1200 IF B<10 THEN 1230 
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T$=STR$(B) 

GOTO 1240 

T$=" “&STRS(B) 
GOSUB 2870 

NEXT B : 

T$="- TROLVEZ LE BON MOT -" 
t=20 

C=7 

GOSUB 2870 
T$="VEUILLEZ FATIENTER QUELQUES" 
L=22 

C=4 

GOSUB 2870 

T$=" INSTANTS SUP" 
L=23 

C=12 

GOSUB 2870 
RANDOM 1 ZE 

N= INT {RND#1026)+1 
FOR B=1 TO 1024 
READ B$ 

IF BCN THEN 1440 
M$=B$ 

NEXT B 

FOR B=1 TO 5 
L$(B)=SEGS(MS,B,1) 
NEXT B 

CALL HCHAR(3,3,13%6) 
FOR B=20 TO 23 
CALL HCHAR(E,3,32,29) 
NEXT B 

T$="PRET :" 

L=20 

C=15 

GOSUB 2870 

CALL SOUND(5,880 ,0) 
CALL SOUND(5,988,0) 
CALL SOUND(5,1047,0) 
CX=1 

LX=LX4 1 

CR=0 

CALL KEY(O,K,S) 

IF S(1 THEN 1620 

IF K=1 THEN 2570 

IF K=13 THEN 1920 
IF K{)48 THEN 1700 
ES(LX,CX)="" 

CALL HCHAR(LX+1 ,CX#241 ,32) 
GOTO 1860 

IF K=44 THEN 1780 
IF K=46 THEN 1830 


IF (K<65)+(K>90)#(K{(97)+(K)122) THEN 


IF K)90 THEN 1750 

K=K+32 

CALL HCHAR(LX+1 ,CX#X241 ,K) 
E$(LX,CX)=CHRS(K) 

GOTO 1830 

IF CX=1 THEN 1620 
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CALL HCHAR(LX+2,CX%2+1,32) 
CX=CX-1 

CALL HCHAR(LX+2,CX#2+1,136) 
GOTO 1620 

IF CR THEN 1860 

CALL VCHAR(2,13,32,15) 

CALL HCHAR(20,8,32,20) 
CR=CR+1 

IF CX=5 THEN j620 

CALL HCHAR(LX+2,CX%2+1,32) 
CX=CX +1 

CALL HCHAR(LX+2,CX#27+1,136) 
GOTO 1620 

DR=0 

FOR B=i TO 5 

IF E$(LX,B)<)>"" THEN 1760 
DR=1 

NEXT B 

IF DR THEN 1620 

FOR B=i TO 5 

IF E${LX,B) {>L#{B)THEN 2010 
E(LX)=E(LX) +1 

NEXT B 

ON E(LX)+1 GOTO 2030,2050,2070,2090, 
,2130 

Ti$="aucune" 

GOTO 2140 

Ti$=" une" 

GOTO 2140 

Ti$=" deux" 


GOTO 2140 
Ti$=" trois" 
GOTO 2140 
Ti$="quatre" 
GOTO 2140 
Ti$=" cinq" 
L=LX+1 


C=15 

IF E(LX))1 THEN 2190 
T$=TI$&" lettre” 

GOTO 2200 

T$=Ti$&" lettres” 
GOSUB 2870 

IF LX=1 THEN 2430 
DR=0 

FOR B=1 TO LX-1 

V=0 

FOR B2=1 TO 5 

IF E$(LX,B2) ()E$(B,B2)THEN 2280 
V=U+ 1 

NEXT B2 

IF V=ECB)THEN 2330 
CALL SOUND(10,1000,0) 
CALL HCHAR(B+1,13,144) 
DR=DR+ 1 

NEXT B 

IF DR THEN 2360 

GOTO 2430 

IF DRD1 THEN 2390 


o 


T$=CHR$(144)&" ERREUR DE LOGIQUE" 
GOTO 2400 

T$=CHR#(144)&"- ERREURS DE LOGIQUE" 
L=20 

C=8 

GOSUB 2870 

IF E(B){5 THEN 2490 
T$="LE MOT ETAIT BIEN : "&M$ 
L=21 

C=5 

GOSUB 2870 

GOTO 2650 

IF LX<)14 THEN 2560 

CALL COLOR(3,9,1) 

CALL COLOR(4,9,1) 
T$="DERNIER ESSAI !" 

L=21 

C=10 

GOSUB 2870 

IF LX{>15 THEN 2620 

T$="LE MOT ETAIT : "&M$ 
L=21 

C=7 

GOSUB 2870 

GOTO 2650 

CALL HCHAR(LX+2,3,32,9) 
CALL HCHAR(LX+3,3,136) 
GOTO 1590 

T$="UNE AUTRE PARTIE ?* 
C=9 

L=22 

GOSUB 2870 

T$=" (O/N)" 

C=15 

L=23 

GOSUB 2870 

CALL KEY(0,K,5) 

IF S=0 THEN 2730 

IF (K=78)+(K=110) THEN 2930 
IF CK{)792#(KC)111)THEN 2730 
CALL CLEAR 

FOR B=1 TO 15 

E(B)=0 

FOR B2=1 TO 5 

E$(B,B2)="" 

NEXT B2 

NEXT B 

RESTORE 

LX=0 

GOTO 840 

PC=1 

FOR X=C TO C+LEN(T$#)-1 
CALL HCHAR(L,X,ASC(SEGS(T$ ,PC, 1))) 
PC=PC+1 

NEXT X 

RETURN 

CALL CLEAR 

END 
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Le jeu de la vie, imaginé par le ma- 
thématicien Conway, est un pro- 
gramme qui a été adapté à la plupart 
des ordinateurs; il fait donc partie des 
classiques”. Il s’agit d’un jeu passif 
puisque l'utilisateur ne peut pas mo- 
difier le déroulement du programme. 


Nous avons fait le choix d'écrire 
deux programmes effectuant exacte- 
ment le même travail; le premier est 
écrit en Basic TI alors que le second 
est réalisé en Assembleur et est 
prévu pour fonctionner avec seule- 
ment la Mini-mémoire. 


L'espace mémoire utilisé par le pro- 
gramme écrit en Basic TI étant im- 
portant, il est impossible de faire 
tourner le jeu de la vie si un lecteur 
de disquettes est raccordé au TI, 
même en employant CALL FILES 
(1). 


L'écran de l'ordinateur visualise une 
population de cellules qui peuvent 
mourir , survivre ou naître. 


Chaque cellule peut avoir jusqu’à 8 
voisines : 


sauf celles qui sont situées sur un 
côté de l'écran (5 voisines) ou dans 
un angle (3). 


Dans un premier temps, le pro- 
gramme affiche aléatoirement la gé- 
nération 0. Le nombre de cellules 
peut varier entre 255 et 510. En- 
suite, le calcul de la génération sui- 
vante est réalisé, et il suffit d'appuyer 
sur la touche espace pour visualiser 
la nouvelle génération. Enfin, une 
pression sur la touche N permet l’ini- 
tialisation d’une nouvelle génération 
0. Voyons quelles sont les règles qui 
determinent l’avenir de nos cellules : 


e 0 ou 1 cellule adjacente : mort par 
isolement (la cellule est blanche); 
2 cellules adjacentes: survie (la 
cellule est rouge); 
3 cellules adjacentes : naissance si 
la position considérée est vide (la 
cellule est bleue); 
plus de 4 cellules adjacentes : 
mort par surpopulation (cellule 
blanche). 


Si le programme écrit en Basic se 
passe de commentaires, il n’en va 
pas de même pour la version écrite 
en Assembleur, surtout si vous débu- 
tez dans cette discipline; quelques ex- 
plications ne seront peut-être pas su- 
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perflues. Il va de soi que si 
l’assembleur n’a plus de secrets pour 
vous, vous pouvez passer allègre- 
ment la suite de cet article. 


Version ”’ Assembleur” 


Avant d'aller plus loin, nous vous 
conseillons de charger le programme 
en mémoire car, en voyant fonction- 
ner le jeu de la vie, vous pourrez 
comprendre plus aisément les expli- 
cations qui vont suivre. 


Si vous disposez de la cassette d’ac- 
compagnement de ce numéro, aucun 
problème, puisque vous n'avez qu’à 
charger le programme (avec l'option 
L de EASY BUG) et à le faire dé- 
marrer (avec l'option RUN du menu 
principal de la Mini-mémoire, le nom 
du programme étant "JEUVIE”). 


Sinon, il va falloir assembler le pro- 
gramme. Pour cela, il faut bien sûr 
charger l’Assembleur ligne par ligne 
et lancer son exécution. Vous pouvez 
alors commencer à entrer le pro- 
gramme. 


Attention : les trois premières co- 
lonnes du listing représentent les nu- 
méros de ligne, les adresses en mé- 
moire et le contenu de ces mêmes 
adresses; il ne faut donc taper que ce 
qui suit ces trois colonnes. 


Vous pouvez remarquer que le code 
source ne comporte pas d'étiquettes; 
cela est dû au fait que l’espace mé- 
moire disponible pour recevoir le 
code objet, lorsque l’assembleur est 
en mémoire, est des plus réduit, et 
que les étiquettes utilisent une partie 
de cette zone. Pour que le pro- 
gramme puisse être assemblé avec 
l'assembleur ligne par ligne, il fallait 
donc que les branchements et sauts 
Rien notifiés par des adresses réel- 
es. 

Le code source ne comportant pas 
d’information dans la zone des éti- 
quettes, chaque entrée de ligne 
pourra débuter par une pression sur 
la barre d’espacement, ce qui a pour 
effet de placer le curseur au début de 
la zone des codes mnémoniques. 


Il faut enfin signaler qu'il n’est pas 
nécessaire de saisir les lignes 
commençant par un astérisque, puis- 
qu’elles sont uniquement destinées à 
recevoir des remarques, et ne sont 
pas prises en compte par l’assem- 
bleur... 


Nous pouvons maintenant passer 
aux explications du programme. 


Jeu de la vie 


Gerbert Cinquet 


Lorsqu'on débute en informatique, la 
première chose que l’on essaye de 
faire, c'est afficher un mot, une 
phrase ou un nombre sur l'écran. 


En Basic, même si l’on n’a jamais 
touché à un ordinateur, cela ne pose 
généralement pas de problème; on 
se rend très vite compte que pour af- 
ficher TOTO, il faut faire PRINT 
TOTO - RETURN. 


En assembleur, le problème est tout 
autre, et le caractère non conversa- 
tionnel de ce langage ne facilite pas 
les choses; on ne peut pas avoir de 
résultat immédiat, ce qui fait que les 
essais ’’par tâtonnement”, très faciles 
à réaliser en Basic, sont ici impossi- 
bles. 


Le programme que nous vous pro- 
posons étant essentiellement basé sur 
l'affichage, il va nous permettre 
d’éclaircir certains points. 


Organisation de la mémoire 
vidéo 

En assembleur, les PRINT, CALL 
HCHAR, CALL COLOR, etc. 
n'existent pas; il faut donc les simu- 
ler, sans pour autant essayer d’imiter 
le Basic (à langages différents, mé- 
thodes différentes). 

Pour cela, il est indispensable de sa- 
voir comment est organisée la mé- 
moire vive du processeur vidéo, utili- 
sée pour la gestion de l’écran. 


Dans cet article, nous nous contente- 
rons d'examiner le mode graphique, 
qui est le seul qui soit utilisable direc- 
tement par le Basic TI. Il faut toute- 
fois rappeler que le TI-99/4A peut 
employer quatre modes d'affichage : 


e mode graphique : 24 lignes de 32 
caractères, soit 768 caractères; 

e mode texte : 24 lignes de 40 ca- 
ractères, soit 960 caractères; 

e mode multicolore : 48 lignes de 
64 petits pavés de 4x4 pixels (il 
est possible d'indiquer la couleur 
de chaque pavé mais ils ne sont 
pas redéfinissables; ce mode ne 
présente donc pas un grand inté- 
rêt); 
mode ”’Bit-Map” : les 49152 pixels 
constituant l'affichage peuvent être 
gérés séparément, et il est possible 
d'indiquer les couleurs des points 
off” et ‘’on’”’ pour chaque ligne 
horizontale de huit pixels; il s’agit 
: mode le plus intéressant sur le 


En assembleur, et en mode graphi- 
que, nous disposons de trois tables 
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situées en mémoire vidéo. 
Table d’écran 


Cette table est une copie en temps 
réel de ce qui est affiché sur l’écran. 
Elle contient les codes ASCII des ca- 
ractères et utilise 768 octets (puisque 
l'on peut afficher 768 caractères en 
mode graphique). Pour simuler le 
CALL CLEAR du Basic TI, il suffit 
de placer la valeur >20 (32 en déci- 
mal, soit le code ASCII du caractère 
espace”) dans les 768 octets consti- 
tuant la table d’écran. 


Dans notre programme, cette table 
commence à l'adresse >0000 et 
s'étend jusqu'à l'adresse >02FF 
(767), ce qui nous fait bien 768 
octets. >0000 constitue l'adresse de 
base de la table qui, nous le verrons 
un peu plus loin, peut très bien être 
située à un autre endroit. 


Si l'adresse de base de la table 
d'écran est >0000, les adresses 
>0000 à >001F (31) contiennent les 
codes ASCII des caractères affichés 
sur la première ligne de l'écran (en 
haut, et de gauche à droite), les 
adresses >0020 (32) à >003D (61) 
contiennent les codes des caractères 
affichés sur la deuxième ligne, et 
ainsi de suite jusqu'à >02FF (767) 
qui contient le code du caractère 
placé dans le coin inférieur droit de 
l'écran. 

Ainsi, si l’on place la valeur >41 (65) 
dans l'adresse >02FF, nous obte- 
nons l'affichage d’un A” dans le 
coin inférieur droit de l'écran (>41 
est le code ASCII de la lettre ’A”). 


Pour placer le caractère X à l’inter- 
section de la ligne L et la colonne C, 
nous pouvons utiliser la formule sui- 
vante : 


A + (32 # L + C - 33) 


dans laquelle À est l'adresse de base 
de notre table (>0000 dans notre 
programme). Le résultat de ce calcul 
est l'adresse qui correspondrait, en TI 
Basic à CALL CHAR (L,C,X). 


Le moyen le plus simple pour affi- 
cher un caractère est d'utiliser l’utili- 
taire VSBW. situé physiquement à 
l'adresse >6024 (dans la ROM de la 


Mini-mémoire). Deux 


sont requis : 


paramètres 


e l'adresse dans la table image 
écran, qui doit être contenue par 
le registre O: 
le code ASCII du caractère à affi- 
cher, qui doit être situé dans l’oc- 
tet de poids fort (octet de gauche) 
du registre 1. 


Concrètement, pour afficher la fettre 
A” dans le coin supérieur droit de 
l'écran, on peut utiliser : 

LI RO,>001F 

LI R1,>4100 

BLWP @>6024 


Comme nous le laissions entrevoir 
précédemment, il est possible de mo- 
difier l'adresse de base de la table. 
Pour cela, il faut charger une valeur 
dans le registre 2 du processeur 
vidéo. 

Cette valeur sera multipliée par 
>400 (1024) par le processeur, ce 
qui fait que les adresses de base pos- 
sibles sont : 


valeur 0 : >0000 

valeur 1 : >0400 (1024) 
valeur 2 : >0800 (2048) 
valeur 3 : >0C00 (3072) 
et ainsi de suite jusqu’à : 
valeur 15 : >3C00 (15360) 


Pour modifier le contenu d’un regis- 
tre vidéo, on peut utiliser la routine 
VWTR, située à l'adresse >6034, et 
qui requiert le numéro du registre à 
modifier dans l’octet de poids fort du 
registre O0, et la valeur à transférer 
dans l’octet de poids faible du même 
registre. Si l’on veut que l’adresse de 
base de la table d'écran soit égale à 
>0400, deux lignes suffisent : 


LI RO,>0201 
BLWP @>6034 


Table des descripteurs 


Cette table, appelée parfois table des 
patrons, contient la définition de la 
forme des caractères. Elle est utilisée, 
en Basic TI, par l'instruction CALL 
CHAR mais, en Assembleur, elle est 
beaucoup plus étendue puisqu'elle 
contient la définition de 256 caractè- 
res. 


Tout comme en Basic, une partie de 
cette table contient des caractères 
prédéfinis par le programme moni- 
teur; ce sont d’ailleurs les mêmes. 


Dans le jeu de la vie, l'adresse de 
base de la table des descripteurs est 
>0800 (2048). Puisque l’on peut dé- 
finir ou redéfinir 256 caractères, et 
que chaque caractère utilise 8 octets 
(comme en Basic), la table utilise 
256%8 soit 2048 octets ou 2 Ko. 


Les octets situés aux adresses >0800 
à >0807 contiennent la définition du 
caractère 0; ceux situés aux adresses 
>0808 à >080F définissent le carac- 
tère 1, et ainsi de suite jusqu'aux 
adresses >O0FF8 à >OFFF, utilisées 
pour la définition du caractère >FF 
(255). 

Pour calculer les adresses à modifier 
afin de redéfinir le caractère X (X re- 
présente le numéro du caractère et 
non la lettre X), on peut employer la 
formule : 

A+Xx8 

dans laquelle À représente l'adresse 
de base de la table. Le résultat de 
l'opération nous indique le premier 
des 8 octets à modifier. Par exemple, 
pour redéfinir le caractère >41 (65) : 


2048 + 65 x 8 = 2568 ou >0A08 


Il faut donc modifier le contenu des 
adresses >0A08 à >O0AC0F. 


La routine VMBW, située en >6028 
est très pratique lorsqu'il faut transfé- 
rer plusieurs octets en mémoire vidéo 
(elle est d’ailleurs faite pour cela !). 
Cette routine requiert 3 paramètres : 


e dans le registre O0: l'adresse en 
mémoire vidéo où sera placé le 
premier octet transféré; 
dans le registre 1: l’adresse du 
tampon de données en mémoire 
vive (directive DATA): 
dans le registre 2: le nombre 
d’octets à transférer (8 pour définir 
un caractère). 


Si nous voulons que le caractère 0 
ait la forme d’un carré, et en suppo- 
sant que le tampon se situe à 
l'adresse >7800, on peut écrire : 


DATA >FF81 
DATA >8181 
DATA >8181 
DATA >81FF 
LI RO,>0800 
LI R1,>7800 
LI R2,>0008 
BLWP @>6028 


L'adresse de base de la table des 
descripteurs peut aussi être modifiée. 
Pour cela, il faut cette fois charger 
une valeur dans le registre 4 du pro- 
cesseur vidéo. Les possibilités sont 
plus limitées que pour la table 
d'écran car la valeur n’est pas multi- 
pliée par >400, mais par >800 
(2048). Vous avez certainement 
compris que, dans notre programme, 
le registre vidéo 4 contient 1, puis- 
que l'adresse de base de la table est 
2048. 


La table des couleurs 


Comme nous venons de le voir, 
nous disposons, en Assembleur, d’un 
jeu de 256 caractères. Comme en 
Basic TI, la couleur des points on” 
(allumés) et celle des points off” 
(éteints) peut être modifiée, et ce par 
groupes de 8 caractères, ce qui nous 
fait donc 256 / 8 = 32 groupes. 


Chaque groupe de caractères utilise 
un octet divisé en deux quartets (4 
bits) : 

e quartet de poids fort (le plus à 
gauche) : couleur des points on” 
du groupe considéré; 

e quartet de poids faible (le plus à 
droite) : couleur des points ”’off”. 


La table des couleurs occupe donc 
32 octets et débute, dans le pro- 
gramme proposé, à l'adresse >0380. 
Ainsi, l'adresse >0380 (896) contient 
les couleurs des caractères O à 7, 
>0381 contient les couleurs des ca- 
ractères 8 à 15, etc... 


En binaire et sur 4 bits, on ne peut 
représenter que des valeurs compri- 
ses entre 0000 (0) et 1111 (15); les 
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codes de couleur ne sont donc pas 
les valeurs 1 à 16 comme en Basic 
mais 0 à 15, soit la couleur en Basic 
- 1 : incolore = 0 et blanc = 15. 


Pour donner les couleurs blanc sur 
noir aux caractères faisant partie du 
groupe 0 (0 à 7), on peut utiliser la 
même méthode que pour afficher un 
caractère sur l’écran : 

LI RO,>0380 

LI R1,>F200 

BLWP @>6024 


Il est aussi possible de modifier l’em- 
placement de la table, en chargeant 
une valeur dans le registre 3 du pro- 
cesseur vidéo. Cette valeur est multi- 
pliée par >40 (64); il y a donc un 
grand nombre d’emplacements possi- 
bles. 


Dans notre exemple, l'adresse de 
base de la table des couleurs étant 
>0380 (896), le registre vidéo 3 
contient la valeur 896 / 64 = 14 (E), 
qui correspond à la valeur par défaut 


100 REM XXXXXXXHXKEREEEEEREX 
110 REM * Jeu de la vie x 
120 REM XXXXXXXXEEEEREEEEEEXX 


130 REM * Basic TI x 
140 REM XXXXXXXHXEERERERERESX 


150 REM 
160 REM 
170 REM 
180 CALL CLEAR 

190 OPTION BASE 1i 


initialisations 


200 DIM T1(22,30),T2(22,30) ,TL(8) ,TC(8) 
210 DATA -1,-1,-1,0,-1,1,0,1, 


,0,-1 

220 FOR B=i TO 8 

230 READ L,C 

240 TL(B)=L 

250 TC(B)=C 

260 NEXT B 

270 C$="003Cé65A5A6S3C" 
280 REM 


290 REM couleurs et redefinitiaons 


300 REM 

310 FOR B=136 TO 152 STEP 8 
320 CALL CHAR(B,C$) 

330 NEXT B 

340 CALL CHAR(63,"0") 
350 FOR B=3 TO 7 

360 CALL COLOR(B,16,13) 
370 NEXT B 

380 CALL COLOR(1,11,11) 
390 CALL COLOR(14,7,11) 
400 CALL COLOR(15,6,11) 
410 CALL COLOR(ié6,16,11) 
420 CALL SCREEN(13) 

430 CALL CLEAR 

440 REM 
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avec l’Editeur/Assembleur ou la Mini- 
mémoire. 


Couleur de l’écran 


Pour remplacer l'instruction CALL 
SCREEN du Basic TI, il faut em- 
ployer le registre 7 du processeur 


vidéo. - 


En mode graphique, seul le quartet 
de poids faible de ce registre est uti- 
lisé, le quartet de poids fort étant 
destiné à recevoir la couleur des ca- 
ractères en mode texte”. 


La routine VWTR, que nous avons 
utilisée précédemment pour modifier 
l'adresse de base des tables, peut 
remplacer le CALL SCREEN: 


LI RO,>0702 
BLWP @>6034 


On obtient alors un écran noir. 
Temps d’exécution 


Si les résultat obtenus sont les 
mêmes avec le programme Basic 
qu'avec celui écrit en Assembleur, les 


450 
460 
470 
480 
490 
900 
510 
920 
9530 
540 
990 
560 
970 
580 
990 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 


REM 


REM 
G=0 


15,101 
NEXT B2 
NEXT B 
REM 


REM 


REM 


REM 


RANDOMI ZE 
Bi=INT(RND*256) +255 
FOR B=i TO Bi 


RANDOMI ZE 
L=INT (RND#22) +1 


temps nécessaires au calcul d’une 
nouvelle génération diffèrent sensi- 
blement. 


En Basic TI : 


Calcul d’une génération : 7 minutes 
et 49 secondes; 

Affichage d’une génération : 45 se- 
condes. 

En Assembleur : 


Calcul d’une génération : environ 0,5 
seconde; 

Affichage d’une génération : certaine- 
ment inférieur à 1/50ème de se- 
conde. 


Autrement dit, pour parvenir à la 
100ème génération, il faut, en Basic, 
14 heures, 16 minutes et 40 secon- 
des, alors qu’en Assembleur 50 se- 
condes suffisent ! 


Un autre point non négligeable : le 
programme écrit en Basic occupe 
13864 octets, alors que la version en 
Assembleur occupe seulement 2156 
octets. = 


REM affiche bordures 
REM 
CALL HCHAR(1,1,63,32) 
CALL HCHAR(24,1,63,32) 
CALL VCHAR(2,1,63,22) 
CALL VCHAR(2,32,63,22) 


REM premiere generation 


FOR B=i TO 22 
FOR B2=1 TO 30 
Ti(B,B2)=32 


REM nombre de cellules 


REM repartition cellules 


C=INT (RND%30) +1 
IF Ti(L,C)=136 THEN 690 


730 

740 
NEXT B 
L=24 
C=2 


TitL,C)=136 
CALL HCHAR(L+1,C+1,136) 


T$=" GENERATION :000????CELLULES : * 


GOSUB 1550 


T$=STR$(B1) 
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810 C=29 1200 Ti(L,C)=T2(L,0C) 

820 GOSUB 1460 1210 NEXT C 

830 CALL SOUND(1,1000,0) 1220 NEXT L 

840 REM 1230 CALL SOUND(1,1000,0) 

850 REM calcul generation nti 1240 CALL KEY(O,K,S) 

860 REM 1250 IF K=78 THEN 430 

870 G=G+1 1260 IF K{>32 THEN 1240 

880 CT=0 1270 REM 

890 FOR L=i TO 22 1280 REM transfert tableau T2-)}affichage 
900 FOR C=i TO 30 1290 REM 

910 CR=0 1300 FOR L=i TO 22 

920 FOR B=1 TO 8 1310 FOR C=i TO 30 

930 LX=L+TL(B) 1320 CALL HCHAR(L+1,C+1,T2(L,0C)) 
940 IF {LX{1)+(LX)>22)THEN 990 1330 NEXT C 

950 CX=C+TC(B) 1340 NEXT L 

960 IF {CX<1)+(CX>30)THEN 990 1350 C=29 

970 IF CTI(LX,CX) 2136) #CTI(LX,CX) <2144)T | 13460 L=24 


HEN 990 1370 T$=STR$(CT) 
980 CR=CR+1 1380 GOSUB 1460 

990 NEXT B 1390 C=13 

1000 IF (TI(L,C)=136)+(TI(L,C)=144)THEN 1 | 1400 T#=STR$(G) 


070 1410 GOSUB 1460 
1010 IF CR=3 THEN 1040 1420 GOTO 870 


1020 T2(L,C)=32 1430 REM 

1030 GOTO 1130 1440 REM "display at using” 
1040 T2(L,C)=144 1450 REM 

1050 CT=CT+1i 1460 IF LEN(T$)=3 THEN 1550 
1060 GOTO 1130 1470 IF LENCT#)=2 THEN 1500 
1070 IF (CR(=1)+(CR>3)THEN 1120 1480 T$="00"&T$ 

1080 IF CR)3 THEN 32767 1490 GOTO 1550 

1090 T2(L,C)=136 1500 T$="0"£&T$ 


1100 CT=CT+1 1510 GOTO 1550 
1110 GOTO 1130 1520 REM 


1120 T2(L,C)=152 1530 REM “display at” 

1130 NEXT C 1540 REM 

1140 1550 X=1 

1150 1560 FOR B=C TO C+LEN(T#)-1 

1160 REM transfert tableau T2-)TI 1570 CALL HCHAR(L,B,ASC(SEGS(T$,X,1))) 
1170 REM 1580 X=X+1 

1180 FOR L=1 TO 22 1590 NEXT B 

1190 FOR C=i TO 30 1600 RETURN 


0001 774Â AORG >774A 0012 7D4A FF20 DATA )FF20,)4E00 
0002 774A BSS 704 7D4C 4E00 
0003 7A0A BS5 768 0013 7D4E FFDF DATA -33,1,1,32,32,-1,-1,-32 
0004 7D0À BSS 2 7050 0001 
0005 7D0C BSS 2 7052 0001 
0006 7D0E BSS 2 7054 0020 
0007 7D10 BSS 32 2056 0020 
0008 7030 0000 DATA 0,0,0,0 7058 FFFF 
7032 0000 7054 FFFF 
7034 0000 7D5C FFE0 
7036 0000 0014 /D5E 0F00 DATA )F00 
0009 7D38 003€ DATA >3C,)665A,) 566, )3C00 0015 7D60 03E8 DATA 1000 
7D3A 6654 : 0016 7D62 0064 DATA 100 
7D3C Sâéé 0017 /Dé4 000À DATA 10 
7D3E 3C00 é 0018 7Déé 47  TEXT ‘GENERATION:000 CELLULES: ‘ 
0010 7D40 éAdA DATA )6A4A,)EA00 0019 * charge pointeur ws 
7042 EA00 0020 7D82 02E0 LWPI >7D10 
0011 7D44 0108 DATA >108,)1000,)2000 7084 7D10 
7046 1000 0021 * couleurs et redefinitions 
7D48 2000 0022 7D86 0200 LI  RO,)7CC 
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7D88 07CC 
0023 7D8A 0420 
7D8C 6034 
0024 7D8E 0200 
7D90 0800 
0025 7D92 0201 
7D94 7D30 
0026 7D96 0202 
7098 0010 
0027 7D9A 0420 
7D9C 6028 
0028 7D9E 0200 
7DA0 0840 
0029 7DA2 0201 
7DA4 7D38 
0030 7DA6 0202 
7DAB 0008 
0031 7DAA 0420 
7DAC 6028 
0032 7DAE 0200 
7080 0880 
0033 7DB2 0420 
7DB4 6028 
0034 7DBé 0200 
7DB8 0380 
0035 7DBA 0201 
7DBC 7D40 
0036 7DBE 0202 
7DC0 0003 
0037 7DC2 0420 
7DC4 6028 
0038 7DCé 0200 
7DC8 0384 
0039 7DCA 0201 
7DCC FC00 
0040 7DCE 0420 
7DD0 6024 
0041 7DD2 0580 
0042 7DD4 0280 
7006 038B 
0043 7DD8 16FA 
0044 
0045 7DDA 04E0 
7DDC 7D0C 
0046 7DDE O4Ci 
0047 7DE0 0200 
7DE2 7A2A 
0048 7DE4 CC01 
0049 7DEé 0280 
7DE8 7CEA 
0050 7DEA 16FC 
0051 
0052 7DEC 0200 
7DEE 7A0A 
0053 7DFO0 0201 
7DF2 2000 
0054 7DF4 DCOi 
0055 7DF6 0280 
7DF8 7A2A 
0056 7DFA 16FC 
0057 7DFC D401 
0058 7DFE 0220 
7E00 0020 
0059 7E02 0280 
7E04 7CEA 
0060 7E06 16FA 
0061 7E08 DCOI 
0062 7E0A 0280 
7E0C 7009 
0063 7E0E 16FC 
0064 7E10 D401 
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BLUP 3)6034 
LI RO,)800 
LI  Ri,)7030 
LI  R2,lé 
BLUP 26028 


LI RO,)840 


LI R1,)7038 
LI R2,8 
26028 
RO, >880 
26028 
RO, )380 
R1,>7D40 
R2,3 
26028 
LI RO,)384 
LI R1,)FC00 
BLWP 96024 


INC RO 
CI RO,)388 


JNE )7DCE 


* premiere  oluaies 


CLR 3)7D0 


CLR Ri 
LI RO,)742A 


MOV R1,#RO+ 
CI  RO,)7CEA 


UNE )7DE4 


* affiche bordures 


LI  RO,)7A0À 
LI R1,)2000 


MOVB Ri ,#R0+ 
CI RO,)7A2A 


JNE )7DF4 
MOVE Ri ,#R0 
AI R0,32 


CI RO,)7CEA 
JNE )7DFC 
MOVB R1 ,#R0+ 
CI RO,)7D09 


JNE  )7E08 
MOVB R1 ,#RO 


0065 7E12 0220 
7E14 FFEO 
0066 7Ei6 0280 
7E18 7A29 
0067 7E1A 16FA 
0068 
0069 7E1C 0200 
7E1E 7CEB 
0070 7E20 0201 
7E22 7Déé 
0071 7E24 DC31 
0072 7E26 0281 
7E28 7D82 
0073 7E2A 16FC 
0074 
0075 7E2C 06A0 
7E2E 7Fé66 
0076 7E30 C120 
7E32 83C0 
0077 7E34 0984 
0078 7E36 0224 
7E38 O0FF 
0079 7E3A C804 
7E3C 7D0E 
0080 


0081 7E3E CiC4 
0082 7E40 06A0 
7E42 7F6é 
0083 7E44 C3E0 
7Edé 83C0 
0084 7E48 096F 
0085 7E4A 028F 
7E4C O2DE 
0086 7E4E 15F8 
0087 7E50 DBEF 
7E52 ZADA 
7E54 7AUA 
0088 7E56 16F4 
0089 7E58 DBEO 
7E5A 7D44 
7ESC 7A0A 
0090 7ESE 0607 
0091 7E60 16EF 
0092 7E62 04C0 
0093 7Eé4 0201 
7E66 7ADA 
0094 7E68 0202 
7E6A 0300 
0095 7EéC 0420 
7E6E 6028 
0096 


0097 7E70 C160 
7E72 700E 
0098 7E74 D6A0 
7E76 7F78 
0099 7E78 02FC 
0100 
0101 7E7A 0200 
7E7C 7A2À 
0102 7E7E 0206 
7E80 774À 
0103 7E82 04E0 
7E84 7D0E 
0104 7E86 9810 
7E88 7D48 
0105 7E8A 1602 
0106 7E8C DDBO 
0107 7E8E 102D 
0108 7E90 D210 
0109 7E92 04C3 
0110 7E94 04C7 


AI  RO,-32 

CI  RO,)7A29 
JNE )7/E10 

# affiche texte 
LI  RO,)/CEB 
LI Ri,)/Dé6 


MOVB R1+ ,4R0+ 
CI Ri,)7D82 


UNE )7/E24 

* nombre de cellules 
BL 3)/7F6é 

MOV 3)83C0,R4 


R4,8 
A1 R4,)FF 


MOV  R4,9)7D0E 

* repartition cellules 
MOV  R4,R7 

BL 4)/Féé 

MOV  9)83C0,R15 


R15,6 
CI  R15,734 


>7E40 
9) 7A0ACR15) , 4) 7ADACR15) 


>7E40 
27044, 4) 7ADACR1 5) 


R7 

JNE )7E40 
CLR RO 

LI  R1,)7A0A 


LI R2,768 
BLUP 326028 


* affiche nombre cellules 
MOV 39)7D0E,R5 


BL 2)7F78 


DATA )02FC 
* calcul generation nt] 
LI  RO,)7A2A 


LI Ré,)774A 
CLR 9)7D0E 
CB xR0,2)7D48 


JNE )7E90 
MOVB #R0+ ,#Ré+ 
JMP  )7EEA 
MOVB xRO ,RB 
CLR R3 

CLR R7 
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0111 7E96 A023 

7D4E 

9810 

7D44 

0113 7E9E 1303 

0114 7EA0 9810 

7EA2 7D45 

0115 7EA4 1601 

0116 7EAé 0587 

0117 7EA8 05C3 

0118 7EAA 0283 

7EAC 0010 

0119 7EAE 16F3 

0120 7EB0 2620 

7EB2 7D5E 

0121 /EB4 130F 

0122 7EBé 0287 

7EB8 0001 

0123 7EBA 1501 

0124 7EBC 1008 

0125 7EBE 0287 

7EC0 0003 

0126 7EC2 1505 

0127 7EC4 050 

7ECé 7D0E 

0128 7EC8 DDAO 

7ECA 7D44 

0129 7ECC 100D 

0130 7ECE DDAO 

7ED0 7D4é 

0131 7ED2 100A 

0132 7ED4 0287 

7EDé 0003 

0133 7ED8 1605 

0134 7EDA 0540 

7EDC 7D0E 

0135 7EDE DDAO 

7EE0 7D45 

0136 7EE2 1002 

0137 7EE4 DDAO 

7EE6 7D47 

0138 7EE8 05C0 

0139 7EEA 0280 

7EEC 7CEA 

0140 7EEE 16CB 
0141 

0142 7EF0 0300 

7EF2 0002 

0143 7EF4 0300 

7EF6 0000 

0144 7EF8 0420 

7EFA 6020 

0145 7EFC 9820 

ZEFE 8375 

7F00 7D4A 

0146 7F02 13Fé 

0147 7F04 9820 

7F06 8375 

7F08 7D4C 

0148 7F0A 1602 

0149 7F0C 0460 

7F0E 7DDA 

0150 7F10 9820 

7F12 8375 

7F14 7D4B 

0151 7F16 16EC 
0152 

0153 7F18 0200 

7FiA 2040 

0154 7F1C 0201 

7FIE 774A 


42 


9) 7D4E (R3) ,RO 
#RO ,3)7044 


)7EA6 
#RO ,9)7D45 


»7EAB 
R? 
R3 
R3,16 


)7E96 
2)7D5E,R8 


»7ED4 
R7,1 


)7EBE 
)7ECE 
R?,3 


)7ECE 
9) 7D0E 


2)7D44 ,#R6+ 


JMP_ )7EE8 
37046, xR6+ 


JMP_ )7EE8 
CI R7,3 


UNE )7EE4 
INC 4)7D0E 


MOVB 4)7D45,#Ré+ 


JMP_ )7EEE 
MOVB 3)7D47,xR6+ 


INCT RO 
CI  RO,)/CEA 


UNE )7E8é6 
* balayage clavier 
LIMI 2 
LIMI 0 
BLWP 36020 
CB 9)8375,3)7D4A 


)7EF0 
CB 3)8375,9)7D4C 


UNE )7F10 
B 3)7DDA 


CR 9)8375,9)7D4B 


+ 


JNE  )7EF0 
* transferts tampons 
LI  RO,)2040 


LI R1,774 


0155 7F20 0202 
7F22 7A0A 
0156 7F24 D800 
7F26 8C02 
0157 7F28 D6C0 
0158 7F2A D800 
7F2C 8C02 
0159 7F2E 1000 
0160 7F30 D831 
7F32 8C00 
0161 7F34 8081 
0162 7F36 16FC 
0163 7F38 05A0 
7F3A 7D0C 
0ié4 7F3C 8820 
7F3E 7D0C 
7F40 7Dé60 
0165 7F42 1602 
0iéé 7F44 0460 
7F4é 7DDA 
0167 7F48 0200 
7F4A 7A2A 
0168 7F4C 0201 
7F4E 774A 
0169 7F50 CC31 
0170 7F52 0280 
7F54 7CEA 
0171 7F56 16FC 
0172 
0173 
0174 7F58 C160 
7F5%4 7D0C 
0175 7F5C 0640 
7FSE 7F78 
0176 7F60 O2EC 
0177 7F62 0460 
7F64 7E70 
0178 
0179 
0180 7F66 0204 
7F68 6FES 
0181 7FéA 3920 
7F6C 8300 
0182 7F6E 0225 
7F70 7AB9 
0183 7F72 C805 
7F74 83C0 
0184 7F76 045B 
0185 
0186 
0187 7F78 C03B 
0188 7F7A C8DB 
7F7C 7D0A 
0189 7F7E 04C4 
0190 7F80 3D20 
7F82 7D62 
0191 7F84 0224 
7F86 0030 
0192 7F88 D060 
7F8A 7D19 
0193 7F8C 0420 
7F8E 6024 
0194 7F90 0580 
0195 7F92 04C4 
0196 7F94 3D20 
7F96 7D64 
0197 7F98 0224 
7F9A 0030 
0198 7F9C D060 
7F9E 7D19 
0199 7FA0 0420 


LI R2,)7A0A 
MOVB RO, 3>8C02 


SWPB RO 
MOVB RO, 28002 


JMP_ #42 
MOVB *R1+,38C00 


C  Ri,R? 
JNE )7F30 

INC 9)7D0C 

C  3)7D0C,3)7D60 
JNE )7F48 

B  3)7DDA 

LI RO,)7A2A 

LI  R1,7744 


MOV #R14,xRO+ 
CI RO,)/CEA 


JNE  }7F50 
* affiche nombre 
* de generations 
MOV  3)7D0C,RS 
BL #7F78 


DATA )02EC 
B 9)7E70 


* sous-progr amme 

* nombres aleatoires 
LI R4,28645 

MPY  3)83C0,R4 

AI R5,31417 

MO R5,3)83C0 

B #R11 
* sous-progr amme 

* affichage nombres 
MOV #R11+,R0 

MOV R11,3)/7D0A 


CLR Rd 
DIV 3)7D62,R4 


AI: R4,30 
MOVB 2)7D19,RI 
BLWP 36024 
INC RO 

CLR R4 

DIV 3)7D64,R4 
AI R4,)30 
MOVB 3)7D19,RI 


BLWP 2)6024 
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7FA2 6024 
0200 7FA4 0580 INC RO 
0201 7FAé 0225 AI  R5,)30 


7FAB 0030 
0202 7FAA D060 MOVB 9)7D1B,RI 
BLWP 96024 


7FAC 7DIB 

0203 7FAE 0420 
7FBQ 6024 

0204 7FB2 C2E0 MOV 3)7D0A,RI1 
7FB4 7D0A 


Cette rubrique a pour but de porter 
à votre connaissance les nouveaux 
programmes proposés pour notre or- 
dinateur. 


Burger Time 


Ce jeu a été conçu par Data East 
USA, Inc., et est commercialisé par 
Texas Instruments. 


Le scénario est assez loufoque : un 
cuisinier, spécialisé dans les hambur- 
gers, est poursuivi par des saussices, 
des cornichons et des oeufs et ne 
dispose, pour se défendre, que d’un 
poivrier qui lui permet d’endormir 
ses agresseurs. 

En marchant sur les éléments consti- 
tuant ses hamburgers (tranches de 
pain, fromage, etc...), il peut aussi les 
faire tomber et ainsi écraser les 
monstres comestibles. 


Le jeu est intéressant et le graphisme 
très soigné (utilisation du mode bit 
map”). Il faut tout de même lui faire 
un reproche : il est affublé d’une mu- 
sique omniprésente et répétitive qui 
devient rapidement insupportable et 
nous oblige à couper le son du télé- 
viseur. 


Star Trek 


Créé par Sega Enterprises Incorpora- 
ted, et commercialisé par Texas Ins- 
truments. 


C’est certainement le jeu le plus inté- 
ressant que nous ayons essayé. Il est 
inspiré du célèbre feuilleton améri- 
cain produit par Paramount Pictures 
Corporation et peut utiliser le synthé- 
tiseur de paroles. 


Vous êtes le capitaine du vaisseau 
spacial Enterprise” et avez pour 
mission de protéger la fédération ga- 
lactique. Vos adversaires sont les 
Klingons et les nomades de l’espace. 
Pour combattre ces envahisseurs, 
vous disposez de ‘torpilles photon” 
et de ”’phaseurs”. 
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0205 7FBé 045B 
0206 

0207 701C 

0208 701C 7FB8 
0209 701E /7FE0 
0210 7FE0 

0211 7FE0  4dA 
0212 /FE6 7D82 
0213 

0214 


#RI1 


>701C 
>7FBB 
)7FE0 
>7FE0 
‘ JEUWIE” 
>7D82 


END 


Programmathèque 


L'écran se présente dr la manière 
suivante : 


e dans le coin supérieur gauche se 
trouvent des indicateurs : réserve 
d'énergie pour le bouclier de pro- 
tection, réserve d'énergie pour les 
déplacements rapides et nombres 
de ”torpilles photon” disponibles: 
la partie restante en haut et à 
droite de l'écran représente une 
vue aérienne de la zone de 
combat, ce qui vous permet de si- 
tuer vos adversaires: 
la partie inférieure (la plus vaste) 
simule, en trois dimensions, ce 
que vous pouvez voir depuis votre 
poste de pilotage. 


Un très bon programme qui passion- 
nera certainement ceux qui ont ap- 
précié Parsec. 


Hopper 


Ce module est produit et commercia- 
lisé par Texas Instruments. 


Trois chasseurs essaient de capturer 
un kangourou, pour le vendre à un 
cirque. La scène se passe dans la 
cale d’un cargo dans laquelle sont ré- 
parties plusieurs cages. Pour se dé- 
fendre, le kangourou doit pousser les 
cages pour enfermer les chasseurs. 


Il faut être franc; ce jeu ne nous a 
pas enthousiasmé. Le graphisme est 
sommaire, et il nous semble qu’un 
amateur peut faire aussi bien en peu 
de temps. 


Return to pirate’s isle 


Créé par Scott Adams, et commer- 
cialisé par Texas Instruments. 


Il faut mettre en garde les acheteurs 
potentiels de ce programme; il s’agit 
d’un jeu de rôle de très haut niveau 
et le graphisme est remarquable, 
malheureusement, toutes les indica- 
tions fournies au programme doivent 
être en Anglais. Si vous maîtrisez 


Marianne Sutz 


parfaitement cette langue, aucun pro- 
blème. Sinon, cet excellent pro- 
gramme est inutilisable. 


Treasure Island 


Un jeu imaginé par Data East USA, 
et commercialisé par Texas Instru- 
ments. 


Un aventurier cherche des trésors 
dans une île peuplée de gporilles 
monstrueux, qui essaient de vous at- 
traper et vous lancent des pierres 
pour vous faire tomber à l’eau. 

Pour compliquer les choses, l’île est 
en train de s’enfoncer dans la mer. 


Ce jeu aurait pu être très bon, d’au- 
tant plus que les images générées 
sont de bonne qualité, mais la part 
laissée au hasard nous semble trop 
importante. 


Les jeux Atarisoft 


Atarisoft, la division ’logiciels” de la 
célèbre firme Afari, propose quatre 
programmes fonctionnant sur le TI- 
99/4A : PAC-MAN, JUNGLE HUNT., 
MOON PATROL et DEFENDER. 


Nous n'avons pas encore pu tester 
ces jeux, mais nous en reparlerons 
dès que nous pourrons nous les pro- 
curer. 


Lunar Lander 2 


Enfin un programme français. Ce 
programme, écrit en Basic Etendu et 
disponible sur cassette, est commer- 
cialisé par le Club de Micro-informa- 
tique de Chatou - 72 rue des landes 
- 78400 Chatou, au prix de 95 FF. 


Nous étions en train de boucler ce 
numéro lorsque ce programme est 
parvenu jusqu'à nos bureaux. Nous 
n'avons donc pas eu le temps de le 
tester. Nous en reparlerons dans le 
prochain numéro. En attendant, nous 
ne pouvons que féliciter les membres 
du club pour cette excellente initia- 
tive. 
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Les opérateurs logiques 


Julien Thomas 


Cet article constitue la seconde partie 
de la série consacrée aux particulari- 
tés du Basic Etendu. Toutefois, les 
opérateurs logiques étant largement 
employés en assembleur, les explica- 
tions fournies ci-dessous pourront 
être utiles à ceux qui débutent avec 
ce langage. 

Il sera très souvent fait appel au sys- 
tème de numération en base 2 (bi- 
naire); nous vous conseillons donc 
de consulter l’article intitulé ’Conver- 
sions”, publié dans ce numéro, avant 
de poursuivre la lecture de cet article. 


Nous nous sommes aperçus que les 
opérateurs logiques, lorsqu'ils sont 
présents dans un programme écrit en 
Basic Etendu, sont très souvent utili- 
sés en tant que ‘’répétiteurs de tests”, 
alors qu'il peuvent aussi être em- 
ployés de manière totalement diffé- 
rente. Ceci est certainement dû au 
fait que le manuel du Basic Etendu 
est assez discret sur ce point. 


Les opérateurs logiques, appelés 
aussi expressions booléennes (du 
nom du mathématicien Boole, qui 
créa une algèbre portant sur des va- 
riables ne pouvant prendre que deux 
valeurs : 1 ou O0, vrai ou faux) opè- 
rent directement sur la représentation 
binaire du ou des nombres à traiter. 
Les opérateurs disponibles en Basic 
Etendu sont: AND (et), OR (ou), 
XOR (ou exclusif) et NOT (non). 


Les paragraphes suivants décrivent le 
fonctionnement de ces fonctions. 
Plutôt que de faire de nombreux 
schémas figés, nous avons préféré 
écrire un petit programme simulant le 
travail effectué par le microproces- 
seur. Il convient donc de charger ce 
programme dès à présent. 


Vous vous rendrez aisément compte 
que le programme n'accepte que des 
entiers compris entre —32768 et 
65535. Ceci correspond aux valeurs 
maximales qu’il est possible de coder 
en binaire sur 16 bits, puisque le mi- 
croprocesseur utilise ce nombre. de 
bits pour réaliser les opérations logi- 
ques. 


AND (ET) 
Le AND (ou intersection logique) 


100 


ÉLÉÉSÉESESSSISSSSSSS ESS SES] 


place à 1 le bit résultant si les bits 
correspondant des deux nombres 
sont à 1, à O dans le cas contraire : 

1 AND 1 
1 AND O 
0 AND 1 
0 AND 0 


Autrement dit, le bit résultant de 
l'opération est placé à 1 uniquement 
si le bit du premier nombre ET le bit 
du deuxième nombre sont à 1. Ainsi, 
si l’on effectue un AND entre 65535 
et 256: 


65535 = 1111111111111111 

256 = 0000000100000000 

65535 AND 256 =000000010000 
0000 = 256. 

Ce type d'opération peut être utilisé 
pour déterminer l’état de un ou plu- 
sieurs bits donnés. Dans l’article Les 
lutins du Basic Etendu”, publié dans 
le numéro 4 de ”99 Magazine”, cette 
méthode était employée pour détec- 
ter la présence de plus de quatre 
lutins sur la même ligne. 


OR (ou) 


Le OR (réunion logique) place un 1 
dans le résultat, si un des deux bits 
correspondant à un rang donné dans 
les nombres traités est à 1. Donc: 


10R1=I1 
10R0O=1 
OOR1=I 
OORO=0 


Concrètement, 
traduit par : 


1234 = 0000010011010010 

5678 = 0001011000101110 

1234 OR 5678 =0001011011111 
110 = 5886. 


Si cela ne vous paraît pas très clair, 
essayez quelques opérations logiques 
avec le programme proposé dans cet 
article; il simule le traitement bit à bit 
et le système utilisé deviendra trans- 
parent. 


XOR (ou exclusif) 


Cet opérateur réalise une disjonction 
logique entre deux nombres, et fonc- 
tionne à peu près de la même façon 
que OR mais seulement si l’un des 
deux bits est à 1 (l’un ou l’autre, 
mais pas les deux) : 


1 
0 
0 
0 


1234 OR 5678 se 


150 ! 


NOT (non) 


Le NOT est le complément à 1 du 
nombre traité (cet opérateur ne re- 
quiert qu’un seul argument). Ceci re- 
vient à inverser la valeur de tous les 
bits constituant le nombre : 


NOT 1 = 0 
NOT 0 = 1 


NOT 34 (0000000000100010) est 
égal à 1111111111011101. 


Vous pouvez obtenir plus de rensei- 
gnements sur le complément à un en 
consultant l’article Conversions”. 


Les opérateurs logiques sont des 
outils qu’il ne faut pas négliger, et 
qui peuvent parfois faire gagner pas 
mal de place en mémoire. 


Par exemple, certains programmes 
utilisent de nombreux drapeaux. 
Dans la plupart des cas, une variable 
est affectée à chaque drapeau, ce qui 
fait que, si l’on en emploie seize, 
16*8 soit 128 octets (une variable 
numérique utilise 8 octets) sont ”’con- 
sommés” uniquement pour ces indi- 
cateurs. 


Les opérateurs logiques permettent le 
traitement d’un nombre bit par bit. Il 
est donc possible, avec des ORs et 
des ANDs, de se servir d’une seule 
variable pour 16 drapeaux, et d’éco- 
nomiser ainsi 120 octets : si Y est le 
nom de la variable réservée aux indi- 
cateurs, ŸY = Y OR 1 placera le bit 
de poids faible de YŸ à 1, sans mofi- 
fier l’état des autres bits. Inverse- 
ment, Y = Y AND 65534 forcera le 
bit de poids faible à O, toujours sans 
modifier les autres. Y = Y XOR 1 
place le bit de poids faible de Y à 1 
uniquement si ce bit est à O0. Pour 
tester l’état du bit de poids faible de 
Y, il suffit de faire D = Y AND 1.Si 
D est égal à 0, le bit de poids faible 
est à O, sinon, il est à 1. Dans un 
programme, on peut écrire : 

100 IF Y AND 1 THEN DRA- 
PEAU1=1 ELSE DRAPEAU1=0 


Ceci est un exemple d’application 
mais nous aurions pu en trouver 
beaucoup d’autres. Le but de cet ar- 
ticle était surtout de vous faire 
comprendre le fonctionnement de 
ces divers opérateurs qui, nous l’es- 
pérons, trouveront leur place dans 
vos futures réalisations. 


HRHREHEERKEEREREEEEREREEX 


110 
120 
130 
140 


160 ! 

170 OPTION BASE 1 :: DIM 0$(4):: CALL MAG 
NIFY(4):: CALL CLEAR :: CALL SCREEN(5) 
180 IMAGE H##H## = 


1 

1 # Les Operateurs  * 
| % Logiques # 
LOHRERARERERAEEEEEARERREX 
1 


* Basic Etendu + 
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190 DATA FC84848484FC,0,0,0,FF80FF,FFO00FF 
,FFOIFF,OR,AND ,XOR ,NOT 

200 GOTO 220 :: CALL CHAR :: CALL CHARPAT 
t: CALL COLOR :: CALL DELSPRITE :: CAL 

L HCHAR :: CALL KEY :: CALL SPRITE 

210 B:: D:: DR :: K :: N° :: Ni :: 
N3 5: NO :: NX 55 S 5: Ch 5: C1$ :: 

$ :: N$ :: NB$ :: NB1$ :: NE2$ :: 

laP- 

220 FOR B=0 TO 12 :: CALL COLOR(B,16,1):: 
NEXT B :: CALL COLOR(14,4,1,13,10,1) 

230 FOR B=1i36 TO 142 :: READ C$ :: CALL C 

HAR(B,C$):: NEXT B :: CALL CHARPAT(48,C 

1$,49,C2$):: CALL CHAR(128,0C1$,129,C2$) 

240 FOR B=1i TO 4 :: READ 0$(B):: NEXT B 


N2 :: 
C2 
OE$ :: 


250 DISPLAY AT(1,3)ERASE ALL:"OPERATEUR ? 


260 ACCEPT AT(1,17)VALIDATE( "ADNORTX" )BEE 
P SIZE(-3):0E$ :: DR=1 :: FOR B=i TO 4 

:: IF OE$=0$(B)THEN DR=O :: NO=B 

270 NEXT B :: IF DR THEN 260 ELSE IF NO=4 
THEN 500 ELSE CALL CHAR(132,"FC8484848 
48484848484848484FC000000000000000000000" 
) 

280 DISPLAY AT(3,3) : "NOMBRE 1 ? :" 

290 ACCEPT AT(3,16)VALIDATE(DIGIT,"-")BEE 
P SIZE(-6):N$ :: DR=0O :: FOR B=2 TO LEN 
(N$):: IF SEG$(N$,B,1)="-" THEN DR=1 

300 NEXT B :: IF DR OR N$="" THEN 290 ELS 
E NI=VAL(NS):: IF N1<-32768 OR N1232767 


THEN 290 ELSE DISPLAY AT(5,3) : "NOMBRE 2 
? :" 
310 ACCEPT AT(5,16)VALIDATE(DIGIT,"-")BEE 
P SIZE(-6):N$ :: DR=0 :: FOR B=2 TO LEN 
(NS) :: IF SEGS(N$,B,1)="-" THEN DR=1 
320 NEXT B :: 1F DR OR N$="" THEN 310 ELS 
E N2=VAL(N$):: IF N2<-32768 OR N2»>32767 
THEN 310 
330 DISPLAY AT(8,3) : USING 180:N{ :: 
:: IF NXCO THEN NX=NX+65536 
340 GOSUB 610 :: DISPLAY AT(8,12) :NB$ :: 


NB1$=NB$ 
350 DISPLAY AT(10,3) :USING 180:N2 :: 


2 :: IF NX(O THEN NX=NX+65536 
360 GOSUB 610 :: DISPLAY AT(10,12):NBS$ :: 
NB2$=NB$ 

370 CALL HCHAR(12,14,140):: CALL HCHAR(12 
,15,141,14):: CALL HCHAR(12,29,142) 

380 FOR B=1 TO 16 :: CALL SPRITE(#1,132,4 
,55,95+B*8,H2,136,10,95,95+Bx8) 

390 C1$=SEGS(NB1$,B,1):: C2$=SEG$(NB2$,B, 
1):: ON NO GOSUB 630,650,670 :: CALL HC 
HAR(13,134B,ASC(CS)) 

400 DISPLAY AT(15,12)BEEP:C1$&" "&OS(NO)& 
" "&C2$L" = "&CHRSCASC(CS)+80):: FOR D= 

0 TO 150 :: IF INT(D/10)<)D/10 THEN 420 
410 IF DR THEN CALL COLOR(H2,14):: CALL C 
OLOR(13,14,1):: DR=0 ELSE CALL COLOR(#2 
,10):: CALL COLOR(13,10,1):: DR=1 


NX=N1 


NX=N 
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420 NEXT D :: NEXT B 

430 CALL HCHAR(15,14,32,16):: 

440,450 ,460 

440 N3=NÏ OR NZ :: 

450 N3=N1 AND N2 :: 

460 N3=NI XOR N2 

470 CALL DELSPRITE(ALL):: DISPLAY AT(13,3 
)BEEP S12E(8) :USING 180:N3 :: DISPLAY À 

T(17,3):"donc, ";N1 ; O$CNO) 3N2 :: DISPLAY 

AT(18,3):"est eqal a ";N3 

480 DISPLAY AT(20,3):"Autre operation ? ( 

O/N)" 

490 CALL KEY{0,K,S):: IF K=79 THEN 250 EL 

SE IF K=78 THEN CALL CLEAR :: END ELSE 

490 

900 CALL CHAR(132,"0000G00000000000FC8484 

8484FC000000000000000000000"):: DISPLAY 
AT(3,3): "NOMBRE 7 :" 

910 ACCEPT AT(3,14)VALIDATE(DIGIT,"-")BEE 

P SIZE(-6):N$ :: DR=O :: FOR B=2 TO LEN 
(N$S):: IF SEGS(N$,B,1)="-" THEN DR=1i 

920 NEXT B :: IF DR OR N$="" THEN 510 ELS 

E N=VAL(NS):: IF N<-32768 OR N>32767 TH 

EN 510 

930 DISPLAY AT(10,3) : USING 180:N :: 

IF NX<0O THEN NX=NX+65536 

040 GOSUR 610 :: DISPLAY AT(10,12):NB$ :: 
CALL HCHAR(12,14,140):: CALL HCHAR(12, 
15,141,14):: CALL HCHAR(12,29,142) 

990 FOR B=ié TO 1 STEP -1 :: CALL SPRITEX 

#1,132,4,55,95+B%x8,42,136,10,95,95+Bx8) 

J60 C$=SEGS(NB$,B,1):: IF C$="0" THEN NX= 

49 ELSE NX=48 

9/0 CALL HCHAR(13,13+B,NX)D:: DISPLAY AT(I 

9,12)BEEP:C$&" devient "&CHR$(NX+80) : : 

FOR D=0 TO 150 :: IF INT(D/10)<>D/10 THEN 
590 

980 IF DR THEN CALL COLOR(#H2,14):: CALL C 

OLOR(13,14,1):: DR=0O ELSE CALL COLOR(#2 
510):: CALL COLOR(13,10,1):: DR=1 

990 NEXT D :: NEXT B :: DISPLAY AT(13,3)B 

EEP S12E(8) :USING 180:NOT N :: CALL HCH 

AR(15,14,32,11):: CALL DELSPRITE(ALL) 

600 DISPLAY AT(17,3):"donc, NOT "35N :: DI 

SPLAY ÀAT(18,3):"est egal a “:;NOT N :: G 

OTO 480 

610 NB$="" : 
NX(2°B THEN NB$=NB$&"0" 
:: NBS$S=NB$S£&" 1" 

620 NEXT B :: RETURN 

630 IF Ci$="1" OR C2$="1" 

E C$="0" 

640 RETURN 

650 IF C1$="1" AND C2$="]1" THEN C$="1" EL 

SE C$="0" 

660 RETURN 

670 IF Ci$="1" XOR C2$="1" THEN C$="1" 

SE C$="0" 

680 RETURN 


ON NO GOTO 


GOTO 470 
GOTO 470 


NX=N 


: FOR B=15 TO O STEP -1 :: IF 
ELSE NX=NX-2°B 


THEN C$="i" ELS 


EL 
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Apprendre le Basic en programmant 
Roger Didi 


L’alibi du jour sera la construction 
d’une grille de mots croisés. 


L'utilisateur nous demande le dessin 
d'une grille carrée dont il pourra 
choisir les dimensions (moins de 15 
cases par ligne). Ces cases seront re- 
pérées par deux lettres : la case C,D 
se trouve donc au croisement de la 
ligne horizontale C et de la ligne ver- 
ticale D. 


Il voudrait pouvoir placer à son gré 
des cases noires, et essayer ensuite 
de croiser des mots; la machine 
devra lui signaler toute erreur de 
croisement et de position. 


Nous conseillons donc au lecteur de 
se munir d'une grille 32x24 qui re- 
présente l'écran car nous aurons plu- 
sieurs petits problèmes de positionne- 
ment de caractères à résoudre. 


Programme 1 : placer les 
cases noires 


Problèmes à résoudre : 


1) dessiner la grille; 

2) écrire un texte au-dessous de la 
grille; 

3) convertir les coordonnées d’une 
case de la grille en position sur 
l'écran (pour utiliser CALL HCHAR). 


Dessin de la grille 


Vous créez, à l’aide de CALL CHAR, 
le caractère numéro 100; c’est un 
petit carré auquel vous donnez des 
couleurs avec CALL COLOR (il ap- 
partient au groupe 9). Créez aussi le 
caractère 101 (même couleur) qui 
correspond à la case noire. Choisis- 
sez une couleur pour l'écran en utili- 
sant CALL SCREEN, et une couleur 
pour les lettres (groupes 5 à 7); 
enfin, nettoyez l'écran  (CALL 
CLEAR). 


10 REM XHIRRHRNNNERX 
20 REM *DESSIN DE LA GRILLE* 
30 REM HR 
100 CALL CLEAR 

110 CALL COLOR(9,9,16) 

120 CALL SCREEN(3) 

130 CALL CHAR(100,"FF81818181818 
1FF") 

140 FOR 1=6 TO 16 

150 CALL HCHAR(I,11,100,10) 
160 NEXT I 

170 GOTO 170 


Il faut encore prévoir deux choses : 
e un tableau (que nous nommons 


JEU(X,Y)), pour mettre en ré- 
serve, et suivre, les codes ASCII 
des caractères placés dans la grille. 
L'instruction DIM(16,16) permet 
de réserver une place dans la mé- 
moire pour ce tableau, qui per- 
mettra de suivre ce qui ce passe 
sur la grille. De plus, lorsque la 
grille est pleine, l'utilisateur peut 
souhaiter la conserver sur cassette 
ou sur disquette; la conservation 
de ce tableau suffira pour cela; 

e un tableau (que nous nommons 
ATT(X)) pour écrire le mot (en at- 
tente) que l'utilisateur écrit à côté 
de la grille avant que la machine 
ne le reporte dans celle-ci. Cela 
nous permettra de nous assurer de 
l'absence d'erreur dans la grille. 


Maintenant, demandez la dimension 
de la grille à l’aide de INPUT et pla- 
cez la longueur du côté dans une va- 
riable (que nous nommons C). 


Il faut tester C et refuser un nombre 
inférieur à 1 ou supérieur à 15. 


La grille doit être placée au milieu de 
l'écran. Il faut donc calculer, en fonc- 
tion de C, la position de chaque 
carré. D'autre part, il faut écrire le 
nom de chaque ligne (à gauche) et le 
nom de chaque colonne (au-dessus). 
Enfin, il faut remplir le tableau 
JEU(X, Y) avec le nombre 100. Nous 
saurons qu’une case est blanche si 
nous trouvons 100 dans la position 
correspondante du tableau JEU. 


Ecrire un texte 


Ce texte doit être écrit au-dessous de 
la grille, donc aux lignes 21 à 24 de 
l'écran, il ne doit pas provoquer un 
scroll” (ce qui ferait monter la 
grille). Nous avons construit une rou- 
tine de même nature dans le numéro 
précédent de ”99 Magazine”. Il doit 
comporter trois lignes : 


SITUATION DES NOIRES 
ENTER SI PLUS DE NOIRE 
LIGNE,COLONNE ---> 


En effet, il faut prévoir une sortie de 
cette partie du programme lorsque 
l'utilisateur le souhaitera; le code de 
la touche ENTER” est 13. 


Rappelons que CALL KEY(0,K,S) 
permet une scrutation du clavier. La 
variable S prend la valeur O (zéro) 
quand aucune touche n'est pressée. 
Il suffira donc de tester S et K pour 
savoir ce qui se passe. 


Convertir les coordonnées 


L'utilisateur désigne sa case par deux 
lettres. Nous lui éviterons la virgule 


qui se placera dès qu'il aura écrit la 
première coordonnée. Il faudra l’em- 
pêcher d'utiliser une lettre qui ne 
correspond pas à la grille. 

Nous aurons alors un gros travail à 
faire pour placer la case noire: il 
s'agit de calculer la position de cette 
case sur l'écran et dans le tableau 
JEU. 

Dans jeu 

NH=KY -64 

NV=KRX-64 

En effet, le code ASCII de A est 65 
et il correspond à la position 1 sur la 
grille. 


Sur l'écran 


Il faut ajouter 12—CC ou 15—-CC 
pour retrouver la position sur l'écran 
(CC est la moitié du côté du carré). 


LIGNE=KY-64+12-CC 
COL=KRX-64+15-CC 


I n'y a plus qu'à placer 101 dans 
JEU(NHNV) et dessiner une case 
noire avec CALL HCHAR(LIGNE, 
COL,101). 


Cette routine de calcul des coordon- 
nées mérite toute votre attention; elle 
sera utile dans tout programme utili- 
sant un repérage de l'écran par l’utili- 
sateur. 

NDLR. : Le programme listé ci-des- 
sous représente la première partie du 
programme définitif. Il n'est donc pas 
autonome et ne peut être utilisé que 
pour le positionnement des cases 
noires. Le fait de vouloir aller plus 
loin provoquerait l'affichage d'un 
message d'erreur. 


100 REM XXX#X#XXHXHXNAXRAEEENX 
110 REM * PROGRAMME Noi * 
120 REM * CASES NOIRES * 
130 REM ##HHM MENU 
140 REM x BASIC TI # 
150 REM #HH#X#HXHHANENXNARNENRX 
160 REM x COPYRIGHT # 
170 REM *  ROGER DIDI * 
180 REM *x ET 99 MAGAZINE *# 
190 REM Y#HX##X#HMARENENENEX 
200 REM 

210 DIM JEU(16,16) 

220 DIM ATT(15) 

230 CALL CLEAR 

240 CALL COLOR(9,9,16) 

250 FOR I=2 TO 8 

260 CALL COLOR(I,2,11) 

270 NEXT I 

280 CALL SCREEN(3) 
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290 CALL CHAR(100,"FF81818181818 
1FF") 

300 CALL CHARC101,"FFFFFFFFFFFFF 
FFF") 

310 REM XHXXXKAXAAEKARHARXEX 

320 REM DESSIN DE LA GRILLE 

330 REM XXKX#XXXEXNANARERERX 

340 INPUT "COTE DU CARRE (C<=15) 
Ca | 

350 IF (C<1)+(C)15)=-1 THEN 340 
360 CC=INT(C/2) 

370 CALL CLEAR 

380 FOR 1=1 TO C 

390 CALL HCHAR(12-CC+1 ,1é-CC-2,6 
4+1) 

400 CALL HCHAR(I0-CC,15-CC+1 ,64+ 
1) 

410 CALL HCHAR(12-CC+I,16-CC,100 
50) 

420 FOR J=1 TO C 

430 JEU(I ,J)=100 

440 NEXT J 

450 NEXT ! 

460 REM YXX#XXXXXXAEXARREREX 

470 REM PLACER LES NOIRES 

480 REM XXXX##XXHXXEXKERAREX 

490 MOT$="SITUATION DES NOIRES" 
500 Y=21 

510 X=3 

520 GOSUB 650 

530 MOT$="(/ENTER’ SI PLUS DE NO 
IRE)" 

540 Y=22 

590 GOSUB 650 

560 GOSUB 740 

570 IF KY=13 THEN 32767 

575 REM ADRESSE À CORRIGER PAR L 

A SUITE 

580 K=101 

990 JEUCNH,NV)=101 

600 CALL HCHAR(LIGNE, COL ,K) 

610 GOTO 560 

620 REM XXHX#XXMXRMEMNREMREUNEX 

630 REM ECRITURE D’UN MOT SUR L‘ 
ECRAN 

640 REM XXXX#XXXHNXAAEXRAREEREX 

650 L=LEN(MOT$) 

660 FOR Li TO L 

670 K=ASC(SEGS (MOTS, U,1)) 

680 CALL HCHARCY,X4U,K) 

690 NEXT U 

700 RETURN 

710 REM XXX#XX#XXXXMENANNANEEX 

720 REM LECTURE DES COURDONNEES 
730 REM YX#XX#XXEMANENREREREX 

740 MOT$=" (LIGNE , COLONNE ) --} 


750 X=3 
760 Y=23 
770 GOSUB 650 
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780 CALL KEY(O,KY,5) 


. 790 IF S=0 THEN 780 


800 IF KY=13 THEN 910 

810 IF CKY<65)#(KY>64#C)=-1 THEN 
780 

820 CALL HCHAR(23,22,KY) 

830 CALL HCHAR(23,24,ASC(" ,")) 
840 CALL KEY(O,KX,5) 

850 IF (KKK65)+CKXD64+C)=-1 THEN 
840 

860 CALL HCHAR(23,26,K0) 

870 LIGNE=KY-64+12-CC 

880 COL=KX-64+15-CC 

890 NH=KY-64 

900 NV=KX-64 

910 RETURN 


Comparez donc ce programme avec 
le vôtre, améliorez-le et essayez de 
prévoir une suite avant de continuer 
avec nous. 


Programme 2 : mots 
croisés 


Nous avons choisi d'écrire moins de 
programmes pour éviter de remplir 
inutilement les pages de 799 Maga- 
zine”, mais nous conseillons au lec- 
teur de réaliser lui-même ce pro- 
gramme morceau par morceau. 


Première étape 


L'utilisateur a pressé la touche 
ENTER” et se prépare donc à écrire 
des mots. Ceux-ci peuvent être écrits 
verticalement ou horizontalement : 
un texte doit donc être écrit au-des- 
sous de la grille pour demander à 
l'utilisateur son choix; nous choisis- 
sons 


ECRITURE DES MOTS 
HORIZONTALEMENT.---> H 
VERTICALEMENT ----> V 


Nous disposons d’une routine d’écri- 
ture et ceci ne doit pas poser de diffi- 
culté. Cependant, il faudrait prévoir 
une routine qui efface le texte sans 
toucher à la grille. Construisez donc 
cette partie du programme et es- 
sayez-la. 


Deuxième étape 


Un CALL KEY(0,KK;S) doit permet- 
tre de placer le choix de l'utilisateur 
dans la variable KK. Il peut être ici 
intéressant d'utiliser les drapeaux 
dont nous avons parlé dans un nu- 
méro précédent de ”’99 Magazine”. Il 
s’agit de variables qui conserveront le 
choix de l'utilisateur et que nous 
pourrons tester continuellement. 


ZH prend la valeur 1 si ’H” est 
pressé, la valeur O dans le cas 
contraire; 
ZV prend la valeur 1 si ’V” est 
pressé, la valeur O dans le cas 
contraire. 


Ceci se fait aisément : 
ZH=-(KK=ASC('H”)) et 


—(KK=ASC('V”)) 
En effet, A=B vaut (—1) si vrai et O 
si faux. 


Troisième étape 


Le texte : 
ENTER SI MOT TERMINE 
,. LIGNE,COLONNE---> 
doit apparaître au bas de l’écran et la 
demande de coordonnée utilise la 
routine que nous avons déjà cons- 
truite, ceci ne doit donc pas vous 
poser de problème. A la fin de cette 
étape, nous devons disposer des 
coordonnées sur l'écran de la pre- 
mière lettre du mot et des coordon- 
nées de la même lettre dans le ta- 
bleau JEU. 


Quatrième étape 


Des erreurs peuvent maintenant se 
produire : il faut donc construire une 
routine musicale ou autre, signalant 
un incident à l'utilisateur. À chaque 
erreur, cette routine enverra un mes- 
sage et l'utilisateur devra recommen- 
cer. 


Quelles sont les erreurs possibles ? 


1) la case choisie n’est pas accepta- 
ble : elle n’est pas précédée d’une 
noire ou elle n’est pas en début de 
ligne ou de colonne. 

Voyons ici l'intérêt des drapeaux : 
NH-—-ZVNV-ZH désigne la case 
précédente dans les deux cas. En 
effet, si l'écriture est horizontale, 
ZH=1 et ZV=0, sinon ZV=1 et 
ZH=0. Il suffit donc de tester 
JEU(NH—ZV,NV—ZH) !! 
Intéressez-vous donc à la ligne 790 
du programme pour bien compren- 
dre le fonctionnement des tests. 


2) si le choix de la position du mot 
est bon, l’utilisateur peut commencer 
à écrire; mais il peut commettre des 
erreurs : 

e la case est occupée par une noire; 
e la case est occupée par une lettre 

différente. 

Autrement dit, la case n’est pas blan- 
che ou le code de la lettre proposée 
est différent de celui qui est en mé- 
moire. Il faut donc utiliser ici un 
compteur de lettres (COMPT) et la 
réserve ATT( ) que nous avons pré- 
parée. 


Ici encore, les drapeaux vont servir. 
JEU(NH+COMPT xZV,NV+COMPT 
*xZH) désigne la case suivante dans 
la direction choisie (essayez de 
comprendre pourquoi). Il suffit donc 
de tester cette case. 


Avant ces tests, il faut permettre 
l'écriture des essais dans une zone de 
l'écran : nous avons choisi la zone à 
droite de la grille et verticalement 
pour les mots verticaux, et au-dessus 
de la grille pour les mots horizontaux 
(ceci doit expliquer aussi la routine 
d’effacement). 
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3) enfin, il faut surveiller le dépasse- 
ment des bords de la grille. 

Lorsque l'utilisateur a terminé son 
mot et que celui-ci est correct, il suffit 
de le recopier dans la grille et dans le 
tableau JEU en utilisant toujours les 
drapeaux; nous laissons au lecteur le 
soin de le faire avant de lire notre 
programme. 


10 REM #XHXXHXXNEREENEXREX 

15 REM * PROGRAMME FINAL* 

20 REM * MOTS CROISES x 

25 REM #HXHHRRMRINEUNUN 

30 REM * BASIC TI # 

35 REM X#HXHHHAERREREREREX 

40 REM * COPYRIGHT * 

45 REM *  ROGER DIDI  * 

50 REM x ET 99 MAGAZINE * 

55 REM #H#HX#HHXERREERRREUEX 

é0 REM 

100 DIM JEU(16,16) 

110 DIM ATT{15) 

120 CALL CLEAR 

130 CALL COLOR(9,9,16) 

140 FOR I=2 T0 8 

150 CALL COLORCI,2,11) 

160 NEXT I 

170 CALL SCREEN(2) 

180 CALL CHAR(100,"FF81818181818 
1FF") 

190 CALL CHARC1O! ,"FFFFFFFFFFFFF 
FFF") 

200 REM XX##K#X#XKKMAENEENEEEX 

210 REM DESSIN DE LA GRILLE 

220 REM XXXXXXXXMARERXENXEX 

230 INPUT "COTE DU CARRE (C<=15) 
# ac 

240 IF (C<1)+(C)15)=-1 THEN 230 

250 CC=INT(C/2) 

260 CALL CLEAR 

270 FOR I=1 TO C 

280 CALL HCHAR(12-CC+1,16-CC-2,6 
4+1) 

290 CALL HCHAR(10-CC,15-CC+I ,64+ 
1) 

300 CALL HCHAR(12-CC+1,16-CC,100 
5€) 

310 FOR J=i TO C 

320 JEUK(I ,J)=100 

330 NEXT J 

340 NEXT I 

350 REM XXXHX#KXAKAMEEMNEENEX 

360 REM PLACER LES NOIRES 

370 REM XXHXX#XXXMXEEREREEEX 

380 MOT$="SITUATION DES NOIRES" 

390 Y=21 

400 X=3 

410 GOSUB 1150 

420 MOT$="(’ENTER’ SI PLUS DE NO 
IRE)" 


430 Y=22 

440 GOSUE 1150 

450 GOSUB 1240 

460 IF KY=13 THEN 540 

470 K=101 

480 JEUCNH,NV)=101 

490 CALL HCHAR(LIGNE, COL ,K) 

500 GOTO 450 

510 REM KXXH#XXENHERXNERRENRX 

520 REM CHOIX DE DIRECTION 

530 REM #XXXXXXXAEENEEENEEX 

540 GOSUE 1520 

550 MOT$="ECRITURE DES MOTS" 

560 Y=21 

570 X=3 

580 GOSUE 1150 

590 MOT$="HORIZONTALEMENT ---) 
H" 

600 Y=22 

610 X=3 

620 GOSUB 1150 

630 MOT#="UVERT 1 CALEMENT 

y" 

640 Y=23 

650 COMPT=0 

660 GOSUE 1150 

670 CALL KEY(O,KK,5) 

680 IF CKKOASC("H")>+(KKOASCC" 
U*))=-2 THEN 670 

690 2H=-(KK=ASC("H")) 

700 2V=-CKK=ASC("V")) 

710 REM X#H#XHXHXKMEENANANXE 

720 REM PLACER LES MOTS 

730 REM XXXXKXXKXAERANEREXX 

740 GOSUB 1530 

750 MOT$="C/ENTER’ SI MOT TERMIN 
E)" 

760 Y=22 

770 GOSUB 1150 

780 GOSUB 1240 

790 IF (JEUCNH-ZV,NV-ZH)=101)+#(N 
H=1)#2V+(NVE1)42H THEN 620 

800 GOSUB 1450 

810 GOTO 780 

820 MOT$="MOT V." 

830 IF 2V=1 THEN 850 

840 MOT$="MOT H." 

850 GOSUB 1570 

860 X=24K20+347H 

870 Y=6x2V+242H 

880 GOSUB 1150 

890 CALL KEY(D,K,S) 

900 IF S=0 THEN 890 

910 IF CCKK65)+(KD90))#CKCI13)TH 
EN 890 

920 CASE=JEUCNH+ COMPT #2U ,NV+ COMP 
T#ZH) 

930 IF K=13 THEN 1040 

940 IF (CASE=100)+(CASE=K)THEN 9 


80 

950 GOSUB 1450 

960 GOSUB 1570 

970 GOTO 540 

980 ATT(COMPT)=K 

990 COMPT=COMPT+i 

1000 CALL HCHARCY#2U+2,27#2U0+(X+ 
9)#2H,K) 

1010 Y=Y+1 

1020 X=X+1 

1030 GOTO 890 

1040 IF (CASE<)101)+(NH#2U+NUX2H 
+COMPT<)C+1)=-2 THEN 950 

1050 FOR 1=1 TO COMPT 

1060 Z2V=(I-1) #20 

1070 22H-(1-1)42H 

1080 JEUC(NH+Z2V,NV+22ZH)=ATT(I-1) 
1090 CALL HCHAR(LIGNE+22V,C0L+22 
H,JEUCNH+22V ,NU+22H)) 

1100 NEXT I 

1110 GOTO 540 

1120 REM XXXXXXXHXAXENARAREXREX 
1130 REM ECRITURE D’UN MOT SUR L 
ECRAN 

1140 REM XXXXXXXXXEXXNEENEEEEX 
1150 L=LEN(MOT$) 

1160 FOR LEÏ TO L 

1170 K=ASC(SEGS (MOTS, U, 1) ) 

1180 CALL HCHARCY,X4U,K) 

1190 NEXT U 

1200 RETURN 

1210 REM XXXKXKXHKXEXHEXREREXREX 
1220 REM LECTURE DES COORDONNEES 
1230 REM #XX#XHXAXXAHENEREENEEX 
1240 MOT$=" (LIGNE , COLONNE) --) 


1250 X=3 

1260 Y=23 

1270 GOSUB 1150 

1280 CALL KEY(O,KY,5) 

1290 IF S=0 THEN 1280 

1300 IF KY=13 THEN 1410 

1310 IF CKYC45)+CKY>64C)=-1 THE 
N 1280 

1320 CALL HCHAR(23,22,KY) 

1330 CALL HCHAR(23,24,ASC{" ,")) 
1340 CALL KEYCO,KX,5) 

1350 IF (KXC6S)#CKO64+C)=-1 THE 
N 1340 

1360 CALL HCHAR(23,26,K0) 

1370 LIGNE=KY-64+12-CC 

1380 COL=KX-64+15-CC 

1390 NH=KY-64 

1400 NU=KX-64 

1410 RETURN 

1420 REM #X#X##H#N#NAREAANERERX 
1430 REM ROUTINE ERREUR 

1440 REM XX#X#H#X#N#NARXAARERAEEX 
1450 MOT$="ATTENTION! !!! 
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1460 Y=23 

1470 X=3 

1480 GOSUB 1150 

1490 FOR 1=i TO 30 

1500 CALL SOUND(50 ,440+3%1I ,4) 
1510 NEXT I 

1520 RETURN 

1530 REM XXX##HX#AMMEHNNERNEX 


1540 REM *ROUTINE EFFACEMENT 
1550 REM XXXXXXXMXERMNEREXREX 


1560 CALL HCHAR(21,1,32,96) 


TI 99 à la conquête des jeux, de 
Pierre Willard, aux Editions Evrolles - 
116 pages. 


Nous connaissons déjà, du même 
auteur, La conduite du TI 99 qui 
traitait de l’organisation interne de 
l'ordinateur. L'auteur récidive cette 
fois par un recueil de 14 jeux fonc- 
tionnant tous avec la console de 
base. 


Tous ces programmes utilisent large- 
ment les possibilités graphiques et so- 
nores de l'ordinateur et se veulent 
complets et complexes. 

On retrouve dans cet ouvrage de 
grands classiques tels STAR-TREK, 
AWARI SCRABBLE, et des pro- 
grammes plus originaux qui sont 
classés en trois catégories : jeux inte- 
ractifs, jeux d'aventure et jeux de ré- 
flexion. 


Chaque programme est largement 
commenté et le lecteur, même s’il ne 
peut toujours appréhender la logique 
du programme, pourra s'inspirer des 
techniques de programmation em- 
ployées. Un ouvrage soigné qui a sa 
place dans votre bibliothéque. 


Jeux, Trucs et Comptes pour TI 
99/4A, de Michel Benelfoul, aux 
Editions du PSI - 176 pages, 90 FF. 


Cette série, que l’on retrouve adap- 
tée à plusieurs ordinateurs, nous est 
proposée ici pour notre TI. 


Il s’agit d'un ouvrage comportant 
trente programmes, tous en Basic TI, 
exécutables avec la console seule et 
traitant des sujets les plus divers. On 
y trouve des interludes graphiques, 
des jeux, des trucs, des utilitaires 
(trisconversion), et même un pro- 


IF... THEN... FOR... 


Le Basic Etendu n’admet théoriq ue- 
ment les boucles "FOR-NEXT” 
après IF-THEN-ELSE. Si vous faites 
un RUN après avoir entré le pro- 
gramme suivant : 


110 CALL KEY (0, ne 
120 IF S=0 THEN 110 
130 IF K=49 THEN FOR I=1 TO 
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1570 CALL HCHAR(I,1,32,64) 
1580 CALL VCHAR(E,27,32,15) 
1590 CALL HCHAR(É,24,32,7) 
1600 RETURN 


Ce programme est imparfait, si vous 
désirez le compléter, voici quelques 
suggestions : 


e recopier le tableau JEU dans un fi- 
chier et créer un programme qui 
le relit; 

e créer une routine de modification. 


gramme d'édition des bulletins de sa- 
laire. 


Chaque programme est présenté 
avec son organigramme et la liste des 
variables avec leur rôle, et leur signi- 
fication est entièrement explicitée. On 
peut ainsi aisément rentrer” dans le 
programme pour y faire ses propres 
modifications. 


Ce livre qui s'adresse aux débutants 
vous fera progresser en Basic TI; 
c'est un peu sous cet aspect qu’il faut 
le considérer et non pas comme un 
simple recueil de programmes tous 
faits. 


102 programmes pour TI 99/41, 
de Jacques Deconchat, aux Editions 
du PSI - 238 pages, 110 FF. 


Egalement dérivé d’une série pour 
divers ordinateurs, cet ouvrage vous 
offre 102 programmes (pas moins) 
écrits en majeure partie en Basic TI 
(la dernière partie du livre, qui en 
comporte 5, s'adresse aux posses- 
seurs du Basic Etendu). 


A un franc le programme, cet ou- 
vrage balaie tous les compartiments 
des jeux. Tous les programmes pré- 
sentés sont courts, mais néanmoins 
assez complets et performants. 


Le but avoué de cet ouvrage est 
l'apprentissage du Basic TI par 
l'exemple et la pratique. 

Le livre se compose de cinq parties 
débutant chacune par l'étude des 
nouvelles fonctions que l’on va ren- 
contrer. Un texte comprenant les ré- 
férences du jeu, ses principales carac- 
téristiques, une analyse du 
programme, un exemple d'exécution 
et une description des éventuelles ex- 
tensions, accompagne chaque listing. 


10:: PRINT I:: NEXT I: GOTO 
110 ELSE FOR I=1 TO 10 :: PRINT 
7?” :: NEXT I :: GOTO 110 

Vous obtenez le message : 

* SYNTAX ERROR IN 130 


Ajoutez au programme la ligne sui- 

vante : 

bye ue 110 :: CALL KEY : K= 
: I@P- 


sur la touche 


L'utilisateur peut souhaiter modi- 
fier la position des noires ou re- 
prendre un partie de la grille; 

® créer une routine qui indique 
continuellement à l'utilisateur la 
longueur du mot qu’il peut écrire: 

e remplacer les lettres qui désignent 
les lignes de la grille par des nom- 

- bres.. 


Pour tout ceci, bon courage et en- 
voyez-nous vos suggestions. 


Bibliographie 


Sophie Ehster 


Les 102 programmes que contient ce 
livre devraient vous inspirer pour 
créer vos propres jeux. 


Notons enfin que cet ouvrage, 
comme le précédent, a été adapté au 
TI 99 par notre ami Gérard San- 
traille. 


Boîte à outils pour TI 99/4A, par 
Marcel Henrot, aux éditions MegaO 
Poche, distribué par les Editions du 
PSI - 128 pages, 35 FF. 


Comme son nom l'indique, ce livre 
est un recueil de ”’trucs” conçus pour 
être utilisés avec la console, sans 
qu'aucune extension ne soit néces- 
saire. 


D'une présentation originale (format 
de poche) il regroupe une trentaine 
de programmes trés courts (de 5 à 
50 lignes) destinés à être insérés 
dans des applications plus 
complexes. 

Certains programmes vous proposent 
des améliorations potentielles et vous 
guident pour l'élaboration de ces ex- 
tensions. 

La structure de chaque programme 
est analysée et on trouve également 
avant chaque listing un tableau 
d'identification des variables. 


Un petit livre fort sympathique qui, 
s’il ne propose pas de programmes 
très élaborés ou sophistiqués, permet 
néanmoins de ”’bricoler”’ avec son TI 


Cela fonctionne ! Si nous appuyons 
71”, le programme 
exécute une boucle qui affiche les 
chiffres 1 à 10. Une pression sur une 
autre touche provoque l'exécution de 
la boucle qui affiche dix points d’in- 
terrogation. 


Conclusion : l'annulation du ‘’’Pré- 
Scan” autorise les boucles après un 
test. 
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Warangal 
Edouard Krok 


Ce jeu, écrit en Basic TI, rappelle le 
jeu de l’oie, mais il se joue sans dés 
et ne comporte pas de cases particu- 
lières. Le terrain de jeu est une spi- 
rale de 25 cases et l’on joue contre 
l'ordinateur. 


Le premier joueur est tiré au sort lors 
de la première partie; ensuite, c’est le 
perdant de la partie précédente qui 
commence. Chaque joueur joue à 
tour de rôle une, deux ou trois mar- 
ques : s’il joue une marque, le joueur 
suivant devra jouer sur la case sui- 
vante; s’il joue deux marques, le sui- 
vant jouera deux cases plus loin et 
s'il joue en trois, il faudra jouer trois 
cases plus loin. 


REM 
REM * 
REM 


Waranqgal 


x Basic TI 


HHKEHLEREREREHEEHEEEX 


LÉÉSÉESSSÉESSSSSÉESSSSS SE: 


Le gagnant sera celui qui parviendra 
à la dernière case, étant entendu que 
sur l’avant-dernière case on ne peut 
jouer que un, et sur la précédente on 
ne peut jouer que un ou deux. 


Le TI-99/4A n'aime pas perdre lors- 
qu’il joue au Warangal mais, s’il vous 
voit en difficulté, il abaissera le ni- 
veau de son jeu. Il ne vous reste plus 
qu'à trouver une stratégie qui vous 
permette de relever honorablement 
le défi que vous lance votre ordina- 
teur. 


Liste des variables 


GP$(5) : conserve le prénom du ga- 


gnant de chacune des 5 parties. 

COM : désine celui qui doit jouer. O 
= TI, 1 = joueur. Lors de la pre- 
mière partie, COM est déterminée au 
hasard. Ensuite, c’est celui qui vient 
de perdre la partie précédente qui 
commence. 

DES: contient le numéro du gra- 


phisme qu'il faudra dessiner selon 
que c’est le TI ou le joueur qui joue. 
K : Code ASCII du nombre de mar- 
ques de jeu. 

LCH: diminue lorsqu'on ne peut 
choisir qu’une ou deux marques de 


jeu. 

NIV : le TI adapte le niveau de son 

jeu aux résultats du joueur. 

PJR : points du joueur. 

PTI : points du TI. 

PST : indique quelle est la case où il 

faut jouer. 

G$ : gagnant de la partie. 

JR$ : prénom du joueur. 

VQRS$ : vainqueurs des cinq parties. 
1] 


310 IF S<>0 THEN 430 


320 NEXT DELAI 
330 CÂALL CLEAR 


340 PRINT * 


WARANGAL":" 


HRKEHEEHERHEEHEEEEEEX 


DIM GP$(5) 

RANDOM] 2E 

CALL CLEÂAR 

PRINT TAB(Ï1); "BONJOUR !"3 5 5 5 5: 

Je m’appelle TI": : : "Je s 

ton° 

PRINT TAB(11);"fidele ordinateur." 

:"Et toi quel est ton prenom ?": 

CALL SOUND(200,1000,5) 

INPUT * “1: JR$ 

IF SEG$(JR#$,2,1)2>"2" THEN 210 

IF LEN(JR$#) (13 THEN 230 

PRINT : :"“Mon programme ne me permet" 
: :"d’accepter qu’un prenom": :"de 3 a 
12 lettres !": 
200 GOTO 160 
210 PRINT : :"Priere d’ecrire avec des": 
:"LETTRES MAJUSCULES. Merci !": 

GOTO 160 

IF LEN(JR$) (3 THEN 190 

CALL CLEAR 

PRINT * Bravo ";JR$: : :"tu as 

fait de choisir": :"de jouer contre 
moi au": : : : - 
260 PRINT “ WARANGAL":::: 
270 PRINT "Mais attention, je suis un": 
"ADVERSAIRE REDOUTABLE !": 
s toi bien ";JR$;" !* 
280 CALL SOUND(200,300,7) 
290 FOR DELAI=1 TO 130 
300 CALL KEY{3,K,5) 


:"Defend 


350 PRINT "Le but du us est de” 

nir a la case centrale. . 

360 PRINT "Chaque joueur met 1,2 ou 3 ": 
:"marques; et le joueur": isutivant jou 

e 1,2 ou 3 cases": 

370 PRINT “plus loin.": : :"Dans l’avant 

derniere case,": :"on ne peut juocer que 
ds et: 2: 

380 PRINT "dans celle d’avant on ne": 

eut jouer que i ou 2." 

390 FOR DELAI=I TO 350 

400 CALL KEY(3,K,5) 

410 1F S<)0 THEN 430 

420 NEXT DELAI 

430 PRINT : 

440 CALL CHAR(40,"000000FF") 

450 CALL CHAR(41,"0808080808080808") 

460 CALL CHAR(120,"101054FEFE7C381") 

470 CALL CHAR(121,"000008082A7F/7F3E") 

480 CALL CHAR(122,"1C08000000000808") 

490 CALL CHAR(123,"2A7F7F3E1C08") 

500 CALL CHAR(130 ,"00000000000000FF"°) 

510 CALL CHAR(140,"03004A00AA0003" ) 

520 CALL CHAR(141,"00C0300C30C") 

530 CALL CHAR(150,"000000FFFFFFFFFF®) 

540 CALL CHAR(152,"0036777F3E1C1C08") 

550 CALL CHAR(153,"0000006CEEFE7C38") 

560 CALL CHAR(154,"381000000000006C") 

570 CALL CHAR(155,"EEFE/7C38381") 

580 CALL COLOR(16,9,12) 

990 CALL COLOR(15,14,1) 

600 CALL COLOR(14,2,1) 


:"parve 


:"Pp 
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610 CALL COLOR(13,7,8) 1070 PST=1i 

620 CALL COLOR(12,2,12) 1075 REMXXXXXXXXXKEXEXEXEXEELELEELEXEXEX 
630 CALL CLEAR 1076 REM COORDONNEES DE LA CASE À JOUER 
640 PRINT " WARANGAL"); 1077 REMXX#XX##XKXXXEXXEREEREEREEREEEEEEX 
650 CALL COLOR(11,12,12) 1080 RESTORE 1120 

éé0 CALL COLOR(10,5,5) 1090 FOR 1=i TO 2é6-PST 

670 CALL COLOR(9,11,11) 1100- READ L,C 
680 CALL COLOR(4,2,1) 1110 NEXT 1! 
690 CALL COLOR(2,13,12) 1120 DATA 10,15,10,10,14,10,14,15,14,20,1 
700 PJR=0 0,20,6,20,6,15,6,10,6,5,10,5,14,5,18,5 
710 PTI=0 1130 DATA 18,10,18,15,18,20,18,25,14,25,i 
720 NIV=13 0,25:6,29,2,29,2,:20,2:19,2;:t10,2,5 

730 COM INT 2#RND) 1140 IF COM=1 THEN 1300 

735 REMXXXXXXAXEXERAEEEXREREEREEEXEX 1145 REMXxXX#XXXXEXXEEEEEEXEEXEEEXREXXX 

736 REM DESSIN DU CÂDRE DE JEU iid4é REM JEU TI 

737 REMXXXXXXAEEXEEEEEREEREEREEEEXX 1147 REMXXXXX###XAEEXXEREEEEEEXEEEEE 

740 FOR L=2 TO 20 1150 COM 1 

2750 CALL HCHAR(L,4,112,24) 1160 DES=120 

760 NEXT L 1170 IF FST}22 THEN iz0Oû 

770 FOR C=3 TO 23 STEP 5 1180 IF PST4NIV THEN i220 

780 CALL VCHAR(2,C,41,19) 1190 IF PST<12 THEN 1210 

790 NEXT C 1200 ON 26-PST GOTO 1280,1240,1240,1260,1 
800 FOR L=5 TO 17 STEP 4 280,1220,1240,1260,1280,1220,1Z40,1260, 
810 CALL HCHAR(L,4,40,24) 1280 ,1220 

820 NEXT L 1210 ON 12-PST GOTO 1240,12460,1280,1220,1 
830 RESTORE 9700 240,1260,1280,1220,1240,1260,1280 

840 FOR I=i TO 6 1220 K=INTéS3%RND) +49 

850 READ L,C,Q@ 1230 GOTO 1520 

860 CALL HCHAR(L,C,105,0) 1z40 K=49 

870 READ L,C,Q 1250 GOTO 1520 

880 CALL VCHAR(L,C,105,0) 1260 K=50 

890 NEXT 1 1270 GOTO 1520 

900 DATA 1,3,26,1,28,21,21,8,26,5,3,17,5,| 1280 K=51 

3,21,9,:23 1290 GOTO 1520 

910 DATA 13,17,8,16,9,8,9,9,8,11,9,18,5,1| 1295 REMXXX##2#X 3262622 X 
3,13,6,13,13,1 1296 REM REPONSE DU JOUEUR 

920 GOTO 1010 1297 REMXXXXXXXXXEXXEEEEEEEEEEEXEXXX 

925 REMXXXXKXXEEAEEEEEREEEEEREEREEEÉEXX 1300 CALL HCHAR(24,8,150 ,LCH+2) 

926 REM INITIALISATION DE CAQUE PARTIE 1310 CALL SOUND(12Z0,800 ,4) 

927 REMXXXXKXXXAAEEEEEEEEEREREEXEEEIEX XX 1320 CALL SOUND(90,2000 ,4) 

930 RESTORE 990 1330 COCO 

940 FOR I1=i1 TO 24 1340 DES=152 

950 REÂD L,C 1350 FOR 1=1 TO 10 

960 CALL VCHAR(L,C,112,3) 1360 CALL KEY{3,K,5S) 

970 CALL VCHAR(L,C+1,112,3) 1370 IF S<{>0 THEN 1410 

980 NEXT 1! 1380 NEXT I 

990 DATA 2,5,2,10,2,15,2,20,2,25,6,25,10,| 1390 GOSUB 3000 
25,14,25,18,25,18,20,18,15 1400 GOTO 1350 

1000 DATA 18,10,18,5,14,5,10,5,6,5,6,10,6| 1410 IF PST=25 THEN 1530 
,15,6,20,10,20,14,20,14,15,14,10,10,10 1420 IF K=49 THEN 1510 

1010 FOR C=14 TO 17 1430 IF PST=24 THEN 1470 

1020 CALL VCHAR(10,C,100,3) 1440 IF K=50 THEN 1510 

1030 NEXT C 1450 IF PST=23 THEN 1470 

1040 CALL SOUND(100,2000,6,5000 ,6) | 1460 IF K=51 THEN 1510 

1050 CALL HCHAR(11,16,63) 1470 CALL SOUND(200,150,0) 

1055 LCH=15 1480 GOSUB 3090 

1060 GOSUB 3090 1490 GOSUB 3040 

106i GOSUB 3040 1500 GOTO 1300 

1065 CALL VCHAR(1,31,130,PJR+PTI4+1) 1510 GOSUB 3100 

1066 GOSUB 3010 1515 REMXXXXXXXXAXEAEEEEEREEALEREEXX 


LI 
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1516 REM AFFICHAGE DES 1955 REMXKXXXXMEEMEENEEREEEEEEEREEEX 
1517 REM MARQUES DE JEU 1956 REM FIN DE JEU 

1518 REMXXX#XXKHHEXARERREREEREEEEEEEEX 1957 REMXXXYXHKYHEEAREERERREREEREEEEEX 
1520 IF K=50 THEN 1570 1960 FOR DELAI=500 TO 2500 STEP 300 
1530 CALL SOUND(-80,1000-850*xC0M, 6) 1970 CALL SOUND(350 ,DELAI ,3) 

1540 CALL HCHAR(L+1,C+COM,DES) 1980 NEXT DELAI 

1550 IF PST=25 THEN 1570 1990 CALL CLEAR 

1560 IF K=49 THEN 1620 2000 FOR 1=2 TO ii 

1570 CALL SOUND(-100 ,1200-950%xC0M,6) 2010 CALL COLOR(I,2,1) 

1580 CALL HCHAR(L,C+1-COM,DES+1) 2020 NEXT I 

1590 CALL HCHAR(L+1,C+1-COM,DES+2) 2030 PRINT TAB(11) ;"WARANGAL": : : 

1600 CALL SOUND(60 ,1800-1550%C0M, 6) 2040 FOR 1=1 TO 5 

1610 CALL HCHAR(L+2,C+1-C0M,DES+3) 2050 PRINT * partie";1;": "3;GP#CI): 
1615 REMXXXXXXXAXXEREXEXEEREEREEEEEEXX : 

1617 REM MISE À  JUOR 2060 NEXT 1! 

1618 REM POSITION ET CHOISIR 2070 IF PTI>PJR THEN 2100 

1619 REMXXX#XXHXEEXREERMERRERREREREEEX 2080 VOR#$="Vainqueur :  “&JR$ 

1620 IF PST=25 THEN 1730 2090 GOTO 2110 

1630 PST-PST+K-48 2100 VGR#="Vainqueur : TI" 

1640 IF PST=24 THEN 1670 2110 PRINT :TAB((30-LEN(UGRS$) )/2) ; VORS: 
1650 IF PST=23 THEN 1690 2120 CALL SOUND{200,800,5,1000,6) 

1660 GOTO 1080 2130 FOR 1=500 TO 3000 STEP 300 

1670 LCH=1i1 2140 CALL HCHAR(23,3,32,28) 

1680 GOTO 1700 2150 CÂALL HCHAR(23,(32-LEN(UGR$) )/2,150,2 
1690 LCH=13 +LENCUGR# ) ) 

1700 GOSUR 3090 2160 CALL SOUND(400,1,10,500,15,3200-I ,20 
1710 GOSUB 3040 78,20) 

1720 GOTO 1080 2170 NEXT I 

1725 REMXXXXXXXHXHEEXEEEEEREEEEEREEXX 2180 PRINT TAB(9);"R_Recommencer" : TAB(9) ; 
1726 REM FIN DE CHAQUE PARTIE "F_Finir'; 

1727 REMXX#XXXXEHXEXEEEEXEREEREEREREX 2190 CALL KEY(3,K,5) 

1730 CALL HCHAR(3,1,32,2) 2200 IF S=0 THEN 2190 

1740 IF COWH=i THEN 1800 2210 1F K=82 THEN 630 

1750 PJR=PJR+i 2220 IF K=70 THEN 120 

1760 GPS(PJR+PTI)=JRS 2230 GOTO 2190 

1770 NIV=NIV-é6 2995 REMXXXXX#XEAXXAEEREEREEREEREEREEX 
1780 G$="PARTIE GÂGNEE PAR "&JRS$ 2996 REM CLIGNOTEMENT DE LA FLECHE 
1790 GOTO 1840 2997 REMXXXXHXXXEKEREEREEREEREEREEEEEX 
1800 PTI=PTI+1 3000 CÂALL HCHAR(3,1,32,2) 

1810 GPSCPJR+PTI)="TI" 3010 CALL HCHAR(3,1,140) 

1820 NIV=NIV+é 3020 CALL HCHAR(3,2,141) 

1830 G$="PARTIE GAGNEE PAR TI" 3030 RETURN 

1840 L=LEN(GS) 3035 REMXXXKHAKEXERAEEEEERREREEREEXX 
1850 C=(30-L)/2 3036 REM ECRIRE : CHOISIR 

1860 GOSUB 3090 3037 REMXXXKXXERHEENEEREEEREREEREEXX 
1870 CALL SOUND(1500 ,-4,10) 3040 CALL SOUND(-1500,600,15,-8,10) 
1880 FOR 1=1 TO L 3050 FOR 1=i TO LCH 

1890 CALL HCHAR(23,C+1,ASC(SEG$(G$,1,1)))| 3060 CALL HCHAR(23,8+1I ,ASC(SEGS$(" CHOISIR 
1900 NEXT 1 s.1 23" ,;1,129) 

1910 CALL SOUND(-100,1200 ,4) 3070 NEXT 1 

1920 CALL HCHAR(9,31 ,48+PJR) 3080 RETURN 

1930 CALL SOUND(100,300,5) 3090 CALL HCHAR(23,1,32,32) 

1940 CALL HCHAR(15,31,48+PTI) | 3100 CALL HCHAR(24,1,32,32) 

1950 IF PJR+PTI<{5 THEN 930 3110 RETURN 


Des sociétés françaises seraient  raient peut-être avancer les choses. 
Depuis l'arrêt de la fabrication du TI prêtes, dit-on, à concevoir des péri-  , Adresse : 
99/4A, il est difficile de se procurer, phériques compatibles avec le TI. Marc Roch-Vilato 
hormis par la revente de particuliers, Je propose aux personnes intéressées 33. boucle de la Milliaire 
certaines extensions (boîtier, lecteurs de m'écrire, afin de recenser les be- 57100 Thionville 
de disquettes). soins, qui transmis à ces sociétés fe- Ë 
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Graphisme en haute résolution (suite) 


Gérard Santraille et Jean-Luc Bazanegue 


Nous vous proposons de rajouter à 
l'ensemble de routines graphiques du 
dernier numéro, un sous programme 
baptisé LIGNE qui permet de tracer, 
en haute résolution évidemment, un 
segment de droite entre deux points 
quelconques. 


DEF EFFT 
DEF LIGNE 


ADRG >A000 


COORD DATA 0 
COULP DATA 0 

* 

COULE DATA 0 
POSAXE DATA 0 
LIGNED DATA 0 
LIGNEA DATA 0 
REGI1 DATA 0 
CR7 DATA 0 
CR8 DATA 0 
TBASIC BSS 4000 
TIMAGE BSS )1800 
RUDP1 DATA )E181 


LIGNE MOVB ALIGNED,R? 
SRL R9,8 
MOVB 3LIGNEA,R7 
SRL R7,8 
MOV R7,2CR7 
MOVB ALIGNED+1 ,R2 
SRL R2,8 
CI  R2,191 


MOVB ALIGNEA+1 ,R2 
SRL R2,8 
R2,191 
LIGNES 
R8,191 
R2,RB 
RB, CR 


R12 
RS, 1 
Ré, 1 
R9,R7 
LIGNE! 
LIGNE2 
LIGNE! RS 


NEG R7 
LIGNEZ MOV 
JNE 


R7,R7 
LIGNE3 

SETO R12 
LIGNE3 S  RIO,RB 
JLT  LIGNE4 
JMP_ LIGNES 
LIGNE4 NEG Ré 
NEG 


R8 
LIGNES MOV R9,R0 
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MOV R10,RI 
MOV Ri,R4 
SLA R4,5 
SOC R1,R4 
ANDI R4,)FF07 
A  RO,R4 


EFFP,EFFC,AXES, POINT , IMAGE 


ANDI RO,7 
S  RO,R4 
LI R3,)8000 
SRC R3,0 
SOCB R3,2TIMAGE(R4) 
MOVB COULP , R1 3 
CLR R? 
MOVB ACOULP+1 ,R2 
SRC R2,12 
SOCB R2,R12 
MOVB R13, ATCOUL(R4) 
C  R9,3CR7 
JNE  LIGNE6 
C  Ri0,aCRE 
JNE LIGNEé 
LIGNES B  GRETOUR 
LIGNE6 MOV R12,R12 
JLT LIGNE? 
A  R5,R9 
S  RB,RI2 
JMP LIGNES 
Ré, R1D 
R7,R12 
LIGNES 


SETO R2 
JMP_ EFFP2 


ñ 
JMP 
EFFT 


Cette routine s'utilise de la même 
façon que les précédentes, au moyen 
de CALL LINK aprés avoir poké en : 


—24568 abscisse de départ (0 à 255) 
—24567 ordonnée de départ (0 à 
191) 

— 24566 abscisse d'arrivée (0 à 255) 
—24565 ordonnée d'arrivée (0 à 
191) 


Si un des points extrêmes d’une 
ligne se trouve en dehors des inter- 
valles précisés ci-dessus, la ligne est 
ignorée. 


Comme pour les autres routines, la 
couleur du tracé dépend des valeurs 
pokées en —24574 (couleur *’OFF”) 
et en —24573 (couleur ON’). 
Ainsi : 

CALL LOAD (—24568,0,0,255,191) 
CALL LINK (”LIGNE”) 


trace une diagonale sur l'écran gra- 
phique. 


L’adjonction de cette nouvelle ins- 
truction à notre bibliothèque de 
commandes graphiques permet 
d'adapter n'importe quel programme 
graphique à notre TI préféré. C'est 
notamment le cas de l'Apple II+ ou 
/le, pour lequel les programmes en 
haute résolution se comptent par 
centaines. 


Conversion des 
programmes graphiques 
destinés à l’Apple 


Nous allons passer en revue toutes 
les instructions graphiques de l’Ap- 
ple, et donner leur équivalent en 
Basic TI. 


HGR active le mode graphique haute 
résolution (280 par 160), et laisse 
quatre lignes de texte au bas de 
l'écran (POKE —-16302,0 ou POKE 
49234,0 supprime cette fenêtre de 
texte). Cette instruction n'a pas 
d’équivalent; en effet, sur le TI le 
graphique n’est pas visible en perma- 
nence et le mode bit-map n'est ac- 
tivé que lors de la visualisation de ce 
dernier lors de l'exécution de CALL 
LINK (”IMAGE”). 


HGR2 active le mode graphique 
haute résolution sur la totalité de 
l'écran et affiche la deuxième page 
graphique. Notre TI n'ayant pas 
assez de mémoire pour contenir les 
différents tampons nécessaires au 
stockage de deux images graphiques, 
cette instruction n’a pas d’équivalent, 
sauf si l’on supprime le tampon 
TCOUL car, dans ce cas, la mémoire 
ainsi libérée pourrait être utilisée 
pour créer une deuxième page. Il est 
évident que les images ainsi générées 
seraient monochromes. 


HCOLOR=I , avec I variant de 0 à 
7, définit la couleur des tracés sui- 
vants. CALL LOAD(-—-24573,1) per- 
met de simuler cette instruction. 
Notons au passage que la palette de 
couleurs du TI est plus riche puis- 
qu’elle permet d’afficher 16 couleurs 
(contre 8 sur l'Apple). 


HPLOT est l'instruction fondamen- 
tale du tracé en haute résolution sur 
Apple. Elle se présente sous deux 
formes différentes : 

HPLOT X,Y allume le point d’abs- 
cisse X et d’ordonnée Y. Son équiva- 
lent est 

CALL LOAD (—-24576,255%X/280,Y) 
CALL LINK (POINT) 


Notez que l’abscisse X est multipliée 
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par 255/280 car la résolution du TI 
(256x192) est légèrement plus faible 
que celle de l'Apple (280x192). 


HPLOT X1,Y1 TO X2,Y2 trace un 
segment de droite entre les deux 
points considérés. L’équivalent de 


* cette instruction est : 


CALL LOAD (-—-24568,255/280*X1, 
Y1,255/280xX2,Y2) 
CALL LINK("LIGNE”) 


Remarque : HPLOT peut être em- 
ployée avec plus de deux points 
selon : HPLOT X1,Y1 TO X2,Y2 TO 
X3,Y3 etc. Il convient alors d'em- 
ployer “LIGNE” autant de fois que 
nécessaire. 


Programme 
de démonstration 


Pour illustrer l'emploi de l'instruction 
LIGNE, nous vous proposons un 
petit programme graphique permet- 
tant de tracer un fractal, un hyperpa- 
rallélépipède ou un ensemble de 
droites concourantes. 


La technique employée pour tracer 
un fractal de base et d'ordre quel- 
conques s'inspire d'un programme 
initialement destiné à l'Apple. 


Le programme procède par menus 
successifs. 


Tracé d’un fractal 


Ne cherchez pas dans un dictionnaire 
le terme FRACTAL, il n'y figure pas 
encore. Il s’agit d’une entité pure- 
ment abstraite, et assez difficile à ap- 
préhender dans son ensemble, et 
pourtant extrêmement facile à cons- 
truire pas à pas. 

Considérons un banal segment de 
droite, divisons le en trois parties 
égales, remplaçons celle du centre 
par un triangle équilatéral construit 
sur elle : on obtient un fractal d’ordre 
un. 

En faisant de même avec les quatre 
segments ainsi obtenus, on génère 
un fractal d'ordre deux, et ainsi de 
suite. 


La figure ainsi construite devient 
(lorsque l’ordre ou la complexité 
tend vers l'infini) une courbe de Von 
Koch (du nom du mathématicien qui 
l’imagina en 1904). 


La propriété la plus étonnante de 
cette figure est sa dimension fractale 
(grandeur comparable en tout point 
à la dimension d’un espace affine ou 
vectoriel); elle vaut log(4) / log(3) = 
1,26. Vous avez bien lu: 1,26. La 
dimension n’est pas entière. Sans 
s'appuyer sur de trop lourdes consi- 
dérations mathématiques, on peut 
essayer d'appréhender cette appa- 
rente incongruité. En effet, on 
comprend aisément que cette dimen- 
sion est bien inférieure à deux (qui 
est la dimension du plan entier). De 


la même façon, la dimension ne peut 
qu'être supérieure à celle d'une 
droite (en l’occurence un) puisqu'il 
s’agit d'une figure autrement plus 
complexe et dont le point de départ 
est une droite. Toute discussion sur 
les fractaux peut sembler ésotérique, 
il faut néanmoins savoir qu'ils consti- 
tuent un ensemble bien quantifié et 
que les démonstrations qu'ils mettent 
en jeu sont rigoureusement exactes. 


Voyons plutôt leur aspect pittoresque 
et la trés grande pureté de leurs 
lignes. Le programme vous permet 
de tracer un fractal d'ordre O0 à 5 
(cette limitation à 5 provient de la ré- 
solution du TI) et de choisir le motif 
de départ .Ce dernier peut être un 
segment de droite (choix 1: la fon- 
damentale), un triangle avec une ex- 
pansion vers l’intérieur ou l'extérieur 
(choix 2 ou 3) ou un hexagone avec, 
comme pour le triangle, une expan- 
sion vers l'intérieur ou l'extérieur 
(choix 4 et 5). 

Le menu, par l'option 6, permet en 
outre de vérifier la réversibilité du 
tracé d’un fractal. 


Laissez-vous griser par ces courbes 
trés pures, modifiez la figure de dé- 
part, superposez vos constructions. 


Tracé d’un hyperparallélépipède 


La deuxième option du menu princi- 
pal vous permet de dessiner un hy- 
perparallélépipède, c'est-à-dire un 
ensemble de parallélépipèdes imbri- 
qués les uns dans les autres, ayant la 
même origine et en commun plu- 
sieurs vecteurs directeurs. 


Considérons le parallélépipède sui- 
vant : 


0,0 


Quatre données suffisent à le définir : 
e son origine (O) 

e ses trois vecteurs directeurs I, J et 

K . 

Chaque sommet du parallélépipède 
peut alors s’écrire comme une 
combinaison linéaire de I, J et K, où 
les coefficients vaudraient 0 ou 1. 


exemple : S1-> OS1=0xI+1x 
J + 1 x K. Chacun des trois vecteurs 
directeurs du parallélépipède peut 


s'écrire à son tour en fonction des 
deux vecteurs X et Ÿ, qui définissent 
le plan de l'écran de notre TI. Rap- 
pelons à ce sujet que le plan graphi- 
que a son origine (0,0) en bas et à 
gauche de l'écran, que l’axe X est 
celui des abscisses et Y celui des or- 
données. 


Le programme, lorsqu'on choisit de 
dessiner un hyperparallélépipède, de- 
mande où il doit placer l’origine, puis 
le nombre de vecteurs directeurs (3 
correspond à un parallélépipède clas- 
sique) et enfin permet de rentrer 
pour chaque vecteur ses deux 
composantes. 


Voici un exemple de valeurs que 
vous pouvez entrer pour créer un hy- 
perpallélépipède : 

Origine : 80,140 

Dimensions : 5 

V1: 70,0 

V2 : 0,70 

V3 : 40,—-40 

V4 : —50,30 

V5 : 40,25 

Tracé de 200 droites concouran- 
tes de couleurs aléatoires 


Le choix de cette option provoque 
l'affichage d’un ensemble de droites 
concourantes. L'analyse du pro- 
gramme Basic se passe de commen- 
tairess à noter simplement que 
l'image obtenue rappelle un peu le 
programme LINES de la mini-mé- 
moire. 
100 REMXXX#XHXRRH HR 
110 REM*x DEMONSTRATION *# 
120 REMx GRAPHIQUE LI 
130 REMHHMENNX 
140 REMXTI-BASIC et Ed/As* 
150 REMXFFHEEENNER 
160 REMY Copyright * 
170 REM* “99 Magazine" * 
REMxGerard Santraille* 
REM* et Jean-Luc  * 
REM* Bazaneque * 
REMA 2 FEEEHEEX 
REM 
CALL CLEAR 
CALL SCREEN(B) 
250 PRINT ,"Chargement.." 
260 CALL INIT 
270 CALL LOAD("DSK1 .0BJETL") 
280 CALL CHAR(9S,"0000FFFF") 
290 CALL CLEAR 
300 PRINT "PROGRAMMES DE DEMONST 
RATION" :" 
LUE & ENTSTTE 
ce d’un fractal” 
310 PRINT :"2-Trace d’un hyper-" 
:" parallelepipede" 
320 PRINT :"3-Droites concourant 
es":" de couleurs aleatoires": 
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t"4-Finirts 55, 

"Votre choix :":: 

330 L=22 

340 H=31 

350 GOSUB 1820 

360 IF (V<49)+(U)52)THEN 350 
370 IF V-52 THEN 400 

380 CALL CLEAR 

390 STOP 

400 CALL LOAD(-24574,0,11,12) 
410 CALL CLEAR 

420 ON V-48 GOSUB 440,1310,1650 
430 GOTO 290 

440 PRINT “TRACE D’UN FRACTAL":" 


450 U1=1/3 

460 U2=1/2 

470 V2=SGR(3)/é6 

480 U3=2/3 

490 Pé=3.1415926/6 

500 PRINT : : : :"{-La fondament 
ale":"2-Motifs dans un triangle” 
:"3Motifs hors 

d’un triangle” 

510 PRINT "4-Motifs dans un hexa 
gone":"5-Motifs hors d’un hexago 
ne":"6—Verifier 

la reversibilite": : : 

920 PRINT "Votre choix :":"Compl 
exite (0 à 5) :":: 

930 L=21 

540 17 

5950 GOSUB 1820 

560 K=V-48 

570 IF (K)6)+CK<1)THEN 530 

580 L=22 

590 H=24 

600 GOSUB 1820 

610 C=V-48 

620 CALL LINKC"EFFT") 

630 ON K GOSUB 670,740,830,920,1 
010,1100 

640 GOSUB 1910 

650 CALL LINK("IMAGE") 

660 RETURN 

670 X1(C)=10 

680 Y1(C)=150 

690 X2(C)=250 

700 Y2(C)=150 

710 GOSUB 1990 

720 C=C-i 

730 RETURN 

740 FOR J=-5 TO 3 STEP 4 

750 X1(C)=130+100*C0S(JxP6) 

760 Y1(C)=109-100*SIN(JXxP6) 

770 X2(C)=130+100*C0S((J+4)xP6) 
780 Y2(C)=109-100*SIN((J+4)#P6) 
790 GOSUB 1990 

800 C=C-1 


:):) MAGAZINE n°5 


810 NEXT J 

820 RETURN 

830 FOR J=11 TO 3 STEP -4 

840 X1(C)=130+86xC0S(JxP6) 
850 Y1(C)=96-B6xSIN(JxP6) 

860 X2(C)=130+86*C05({J-4)xP6) 
870 Y2(C)=96-B6#SIN((J-4)*xP6) 
880 GOSUB 1990 

890 C=C-1 

900 NEXT J 

910 RETURN 

920 FOR J=-1 TO 9 STEP 2 

930 X1(C)=130+86xC0SCJxPé) 
940 Y1(C)=96-B6XSINCJxP6) 

950 X2(C)=130+86#C0SC(J+2)xPé) 
960 Y2(C)=96-86*SINL C1+2) xP6) 
970 GOSUB 1990 

980 C=C-1 

990 NEXT J 

1000 RETURN 

1010 FOR J=11 TO 1 STEF -2 
1020 X1(C)=130+80*C05(JxP6) 
1030 Y1(C)=96-80*xSIN(JxPé) 
1040 X2(C)=130+80*C05((J-2)*xP6) 
1050 Y2(C)=96-80*xSINC(J-2)xP6) 
1060 GOSUB 1990 

1070 C=C-1 

1080 NEXT J 

1090 RETURN 

1100 X1(C)=10 

1110 Y1(C)=150 

1120 X2(C)=250 

1130 Y2(C)=150 

1140 GOSUB 1990 

1150 C=C-1 

1160 IF C THEN 1180 

1170 RETURN 

1180 C=C-1 

1190 X1(C)=250 

1200 Y1(C)=150 

1210 X2(C)=130 

1220 Y2(C)=75 

1230 GOSUB 1990 

1240 C=C-1 

1250 X1(C)=130 

1260 Y1(C)=75 

1270 XZ(C)=10 

1280 Y2(C)=150 

1290 GOSUB 1990 

1300 RETURN 

1310 PRINT “TRACE D’HYPERPARALLE 
LEPIPEDE" :" 


1320 DIM X(100),Y(100) 

1330 INPUT "Origine CX,Y) : ":X0 
,*Ÿ0 

1340 INPUT "Dimension : “:K 
1350 CALL LINK("EFFT") 

1360 FOR 1=0 TO K-1 


1370 INPUT "Vecteur (UX,UY) : ": 

UXCI) ,UY(1) 

1380 B(I)=0 

1390 NEXT 1! 

1400 PRINT :"Trace en cours" 
1410 FOR I=0 TO 2*K-1 

1420 NI 

1430 FOR J=K-1 TO 0 STEP -1 

1440 B(J)=INTIN/2"J) 

1450 NN-B(J)#2°J 

1460 NEXT J 

1470 X(I)=X0 

1480 Y(I)=YQ 

1490 FOR J=0 TO K-1 

1500 IF B£J)=0 THEN 1530 

1510 XCI)=XCI)+UXEJ) 

1520 YCI)=Y(I)-UY(J) 

1530 NEXT J 

1540 FOR J=0 TO K-1 

1550 IF B(J)<>0 THEN 1590 

1560 XV{J)=XCI)+UX(J) 

1570 YVCJ)=Y(1)-VY(J) 

1580 CALL LOAD(-24568,X(1),YCI), 

XV(J) ,YVCI)) 

1590 CALL LINKC"LIGNE") 

1600 NEXT J 

1610 NEXT I 

1620 GOSUE 1910 

1630 CALL LINK("IMAGE") 

1640 RETURN 

1650 PRINT "DROÏTES CONCOURANTES 
DE":" ma 
COULEURS ALEATOI 

RES. ." 


1670 CALL LINKC"EFFT") 

1680 RANDOMIZE 

1690 CALL LOAD(-24568,INT(RND#15 
0)+50, INTCRND*#100) +50) 

1700 CALL LOAD(-24574,0,0,1) 
1710 FOR I=0 TO 200 

1720 RANDOMIZE 

1730 CALL LOAD(-24573, INT (RND#13 
)+3) 

1740 CALL LOAD(-24566, INT (RND*25 
9)+1,INTCRND#191)+1) 

1750 CALL LINKÇC"LIGNE") 

1760 NEXT 1! 

1770 GOSUB 1910 

1780 CALL LINK("IMAGE") 

1790 RETURN 

1800 REM SP saisie choix 

1810 REM XXH#XHXXXMENMAUNEX 

1820 CALL SOUND(100,700,0) 

1830 CALL HCHAR(L,H,30) 

1840 CALL KEY(5,V,5) 

1850 CALL HCHAR(L,H,32) 

1860 IF S=0 THEN 1830 





1870 CALL HCHAR(L,H,U) 

1880 RETURN 

1890 REM SP trace fini 

1900 REM XXX#XXXXHRENEX 

1910 FOR I=1 TO 4 STEP .5 
1920 CALL SOUND(40,300%1 ,0) 
1930 NEXT I 

1940 FOR I=1 TO 50 

1950 NEXT 1! 

1960 RETURN 

1970 REM SP dessin recurcsif 
1980 REM HXHH NX 
1990 IF C THEN 2040 

2000 CALL LOAD(-24568,X1€(C) ,Y1(C 
),X2(0),Y2(0)) 

2010 CALL LINKC"LIGNE") 
2020 C=C+i 

2030 RETURN 

2040 DX(C)=X2(C)-X1 (C0) 

2050 DY(C)=Y2(C)-Y1(C) 

2060 X1(C-1)2=X1(C) 


2070 Y1(C-1)=Y1(C) 

2080 X2(C-1)=X1(C)+U1 #DX(C) 
2090 Y2(C-1)=Y1(C)+U1 #DY(C) 
2100 C=C-1 

2110 GOSUB 1990 

2120 X1(C-1)=X2(C-1) 

2130 Y1(C-12=Y2(C-1) 

2140 X2(C-1)=X1(C)+U2#DX(C)+V2xD 
Y(0) 

2150 Y2(C-1)=Y1(C)+U2#DY(C)-V24D 
X(C) 

2160 C=C-1 

2170 GOSUB 1990 

2180 X1(C-12=X2(C-1) 

2190 Y1(C-1)=Y2(C-1) 

2200 X2(C-1)=X1(C)+U3#DX(0) 
2210 Y2(C-1)=Y1(C)+U3#DY(C) 
2220 C=C-1 

2230 GOSUB 1990 

2240 X1(C-1)=X2(C-1) 

2250 Y1(C-1)=Y2(C-1) 


2269 X2(C-1)=X2(0) 
2270 Y2(C-1)=Y2(C) 
2280 C=C-1 

2290 GOSUB 1990 
2300 C=C+i 

2310 RETURN 


Ce petit programme de démonstra- 
tion vous montre comment, avec peu 
d'instructions, on peut créer de très 
beaux graphiques. Il est désormais 
facile de manier la haute résolution 
du TI; ne vous en privez pas... 

Pour faire suite à la demande de 
nombreux lecteurs, nous avons cons- 
titué une disquette contenant le fi- 
chier source modifié (ajout de la rou- 
tine LIGNE), un code objet utilisable 
avec la Mini-mémoire et un code 
objet prévu pour l'Editeur/ 
Assembleur. 

Vous pouvez acquérir cette disquette 
en nous envoyant le bon de 
commande joint à ce numéro. 





Le Trésor de 


Georges Herbepin 


ND.LR. : si un lecteur de disquettes 


est raccordé à votre TI, vous devez 
utiliser le désormais célèbre ‘CALL 


l’Armada 


FILES(1)" avant de charger ce pro- 
gramme écrit en Basic Etendu. 


La recherche de trésors submergés 


occupe depuis longtemps de nom- 
breux plongeurs amateurs ou profes- 
sionnels. Ce programme vous pro- 
pose de prendre leur place sans pour 
autant vous mouiller. 


Le ‘’mode d'emploi” du jeu s'affiche 
en début d'exécution du programme, 
vous pouvez donc vous jeter à l’eau 
dès à présent. & 





10 ! OHXXKEAEEREEREENEEEEEXXE 

20 ! * Le tresor de * 

30 ! * l‘armada * 

AO ! ÉHHREERERIRERIRIEIRERREEX 

50 ! * Basic Etendu * 

0 ! HHERERIERIRIRIRIURRREERUEEX 

70 ! 

100 CALL CLEAR :: FOR A=i TO 8 :: CALL CO 
LOR(A,12,5):: NEXT À :: CALL SCREEN(5) 


110 DISPLAY AT(1,3):"*x LE TRESOR DE L’ARM 

ADA +#" :: DISPLAY AT(3,3) : "HR 
RERAEREREREEE" 

120 X=2*(1/20):: FOR A=1 TO 22 :: 
UND(80,110*X°A,0):: NEXT À 

130 DISPLAY AT(5,3):"UN TRESOR(COFFRE REN 
FER-" :"MANT DES PIECES D‘’OR)REPOSE" : "AU 
FOND DE LA MER,GARDE PAR" 

140 DISPLAY AT(8,1):"UNE REDOUTABLE PIEUV 
RE.VOUS" : "DISPOSEZ DE 5 PLONGEURS DONT" 
:"LES DEPLACEMENTS SONT CON-" 

150 DISPLAY AT(11,1):"TROLES PAR LA MANET 
TE NO 1":"ET LE DEPART PAR LE BOUTON":" 
DE TIR.DES QU’UN COFFRE EST" 

160 DISPLAY AT{14,1):"RAMENE SUR LE BATEA 
U,UN NOU-" :"VEAU TRESOR APPARAIT ALEA-" 
:"TOIREMENT.LE PLONGEUR PEUT" 

170 DISPLAY AT(17,1):"ETRE DETRUIT PAR LA 
PIEUVRE" : "ET ,UNIQUEMENT S’IL À ATTRA-" 
:"PE LE TRESOR,PAR LA MEDUSE" 

180 DISPLAY AT(20,1):"OU L’HUITRE SI ELLE 
EST" :"OUWERTE.* 

190 DISPLAY AT(23,1):"APPUYEZ SUR UNE TOU 
CHE" : “POUR LIRE LA SUITE." 

200 CALL KEY(0,K,S):: IF S=0 THEN 200 ELS 
E CALL CLEAR 

210 DISPLAY AT(3,3):"L’HUITRE OUVERTE PEU 
T RE-":"TARDER LA PIEUVRE.LE PLON-*:"GE 
UR DOIT OBLIGATOIREMENT * 

220 DISPLAY AT(6,1):"FAIRE 2 PALIERS EN R 
EMON-" : "TANT AVEC LE TRESOR.UN TRE-":"S 
OR ATTRAPE RAPPORTE 200" 

230 DISPLAY AT(9,1):"PIECES D’OR;UN TRESO 


56 


CALL S0 


R RA-":"MENE 1000 ;LA PIEUVRE RE-" : *TARD 
EE 50.CHAQUE PALIER ET" 

240 DISPLAY AT(12,1):"CHAQUE PASSAGE PRES 
DES EPA-":"VES ENLEVE 10 PIECES D’OR.* 
250 DISPLAY AT(14,3):"UN SCORE SUPERIEUR 

A 8000":"VOUS REDONNE 3 PLONGEURS.* 
260 DISPLAY AT(17,1):"RELEVEZ LA TOUCHE À 
LPHALOCK ." : "VOTRE SCORE S'AFFICHE LORS- 
":"QUE TOUS LES PLONGEURS"* 
270 DISPLAY AT(20,1):"SONT MORTS." 
280 DISPLAY AT(23,1):"APPUYEZ SUR UNE TOU 
CHE" :"POUR DEBUTER LE JEU." 
290 CALL KEY(0,K,S):: IF S=0 THEN 290 
300 CALL CLEAR :: CALL SCREEN(S):: FOR À 
1 TO 8 :: CALL COLOR(A,5,1):: NEXT À 
310 CALL CHAR(32,"010F1F33337F1F0FO0F1F162 
625484884F0FCFEFFFFFFFE3C0000C0300C8241 
21°) 
320 CALL CHAR(36,"0F3F7FFFFFFF7F3C00000 30 
C3041828480F0F8CCCCFEF8F0FOF86864A41212 
21") 
330 CALL CHAR(40,"01010003050505010300000 
000000000C0C080E0D0D0504060" ) 
340 CALL CHAR(44,"03010101010304050500000 
000000000604040C0C0E090D0D0 * ) 
350 CALL CHAR(48,"00000000000000070703030 
00000000000000000000000F0F0E0E0" ) 
360 CALL CHAR(52,"03070F1D190F04040809312 
020101121C0E0F0B898F0A0A0B80808C4444888 
04") 
370 CALL CHAR(56,"02020A0ADA1A1A1ASASA7AF 
A02FF6E3F008080C0C0E0E0FOF8FCFEFFOOFFFF 
FE") 
380 CALL CHAR(60,"FFFFFFFFFFFFFFFF0103070 
F1F3F7ÉFF80C0E0FOF8FCFEFF000041221C08" ) 
:: CALL COLOR(4,16,8) 
390 CALL CHAR(64,"010F3F377E7C78F0E0COCOE 
AFF3F0F03E0C0800000000000000000AÂÀFF3EF8 
co*) 
400 CALL CHAR(68,"000000000000030F3F7FFFE 
AFF3F0F03000000000000C0F0FCDEFFAÂAFF3EF8 
Co") 

< 


410 CALL CHAR(72,"00000307273E7C9F1F0B030 
000000000000000C0F8FC3EBBFAE080 80" ) 

420 CALL CHAR(76,"0103070F1F3F7FFF80C0E0F 
OFSFCFEFFFFFFFFFFFFFFFFFF00"):: CALL CO 
LOR(É,3,16) 

430 CALL CHARC80,"FFFFFFFFFFFFFFFFFFBEF7F 
FDFFBDFFB000000000000000000"):: CALL CO 
LOR(7,5,16) 

440 CALL CHARC88,"FFFFFFFFFFFFFFFF80COEOF 
OF8FCFEFF0103070F1F3F7FFFFFFEFCFBFOEOCO 
80*):: CALL COLOR(8,6,5) 

450 CALL CHAR(92,"FF7F3F1F0F070301FFFFDBA 
SBDFFFFFF*) 

460 CALL CHAR(96,"432418B154141038"):: CA 
LL COLOR(9,13,5) 

470 CALL CHAR(104,"FFFFFFFFFFFFFFFFFEFCFS 
FOE0CO8000FF7F3F1F0F070301Dé0C58D0C0C08 
000") 

480 CALL CHAR(108,"D761341707070301EFC783 
C7EFEFEFC700024234096A9C0000"):: CALL C 
OLOR(10,8,3) | 
490 CALL CHAR(112,"00008060301C8E673F6F83 
000000000000020C387078E8FCC080" ) 

500 CALL CHAR(116,"00000000000080673F6F83 
0F1C304000000000000038E8FCE0F0B81C0601* 

) 

510 CALL CHAR(120,"00080404621A050 3008890 
90A3ACD0E07F 0300320 4040808FFE0D8A691 908 
888"):: CALL COLOR(12,12,8) 

520 CALL CHAR(128,"0000000000202010000000 
000000000300000101010709090000806010008 
080") 

530 CALL CHAR(132,"10080807040C32410C30C0 
000000000111212141418181014040402020111 
608"):: CALL COLOR(13,14,5) 

540 CALL CHAR(136,"4080800000000207804024 
1C1C3E7FFF0101091D0F3F7FFF000000002070F 
8DC" ) 

550 CALL CHAR(140,"0F1F3F7FDFFF0701FFFEE4 
COE0E0C0801F0F1C0E07030100EEF7FBFEFCFBF 
0C0"):: CALL COLOR(14,14,5) 
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560 CALL HCHAR(1,1,104,256):: CALL HCHAR( 
9,1,80,512):: CALL HCHAR(B,16,78,17):: 
CALL HCHAR(7,19,78,14) 
570 CALL HCHAR(6,26,78,6):: CALL HCHAR(B, 
15,105):: CALL HCHAR(7,18,107):: CALL H 
CHAR(6,25,107):: CALL HCHAR(5,26,107):: 
ALL HCHAR(5,26,107) 
580 CALL HCHAR(5,31,106):: CALL HCHAR(É,3 
2,108):: CALL HCHAR(8,17,110,2):: CALL 
HCHAR(8,21,110,3):: CALL HCHAR(8,25,111,2 
) 
590 CALL HCHAR(8,29,110,3):: CALL HCHAR(é 
,27,110,3):: CALL HCHAR(5,27,77):: CALL 
HCHAR(5,29,77):: CALL HCHAR(6,20,109,4) 
600 CALL HCHAR(5,28,76):: CALL HCHAR(5, 30 
,76):: CALL HCHAR(4,28,60,2):: CALL HCH 
AR(4,27,61):: CALL HCHAR(3,28,61):: CALL 
HCHAR(S5,31,108) 
610 CALL HCHAR(3,29,62):: CALL HCHAR(4,30 
,62):: CALL VCHAR(13,2,88,12):: CALL VC 
HAR(12,3,88,12):: CALL VCHAR(12,4,88,8) 
620 CALL VCHAR(13,5,88,7):: CALL HCHAR(17 
,16,88,5):: CALL HCHAR(18,6,88,6):: CALL 
HCHAR(19,10,88,2):: CALL HCHAR(20,11,88) 
630 CALL HCHAR(21,12,88,2):: CALL HCHAR(2 
2,12,88,2):: CALL HCHAR(23,10,88,3):: C 
ALL HCHAR(24,9,88,4):: CALL HCHAR(16,20,8 
8,2) 
640 CALL HCHAR(17,16,88,7):: CALL HCHAR(I 
8,15,88,8):: CALL HCHAR(19,15,88,2):: C 
ALL HCHAR(19,20,88,5):: CALL HCHAR(20,21, 
88,5) 
650 CALL HCHAR(21,21,88,5):: CALL HCHAR(2 
2,21,88,5):: CALL HCHAR(23,22,88,5):: C 
ALL HCHAR(24,23,88,10):: CALL HCHAR(23,31 
,88,2) 
660 CALL HCHAR(22,32,88):: CALL HCHAR(12, 
5,89):: CALL HCHAR(16,6,89):: CALL HCHA 
R(17,11,892:: CALL HCHAR(20,12,89) 
670 CALL HCHAR(16,22,89):: CALL HCHAR(18, 
23,89):: CALL HCHAR(19,25,89):: CALL HC 
HAR(22,26,89):: CALL HCHAR(23,27,89) 
680 CALL HCHAR(12,2,90):: CALL HCHAR(20,1 
4,90):: CALL HCHAR(17,15,90):: CALL HCH 
ARC16,19,90):: CALL HCHAR(23,30,90) 
690 CALL HCHAR(22,31,90):: CALL HCHAR(21, 
32,90):: CALL HCHAR(24,3,91):: CALL HCH 
AR(20,4,91):: CALL HCHAR(19,6,91) 
709 CALL HCHAR(23,9,90):: CALL HCHAR(22,1 
1,90):: CALL HCHAR(24,13,89):: CALL HCH 
ARC23,13,91):: CALL HCHAR(21,14,91) 
710 CALL HCHAR(20,15,91):: CALL HCHAR(19, 
17,91):: CALL HCHAR(19,9,92):: CALL HCH 
AR(20,10,92):: CALL HCHAR(21,11,92) 
720 CALL HCHAR(19,19,92):: CALL HCHAR(20, 
20,92):: CALL HCHAR(23,21,92):: CALL HC 
HAR(24,22,92):: CALL HCHAR(11,3,96,2) 
730 CALL HCHAR(16,7,96,4):: CALL HCHAR(20 
,13,96):: CALL HCHAR(I6,16,96,3):: CALL 
HCHAR(15,20,96,2):: CALL HCHAR(18,24,96) 
740 CALL HCHAR(23,28,96,2):: CALL HCHAR(2 
4,4,96,5):: CALL HCHAR(24,14,96,8):: CA 
LL HCHAR(3,6,120):: CALL HCHAR(3,7,121) 
750 CALL HCHAR(4,6,122):: CALL HCHAR(4,7, 
123):: CALL HCHAR(12,26,128):: CALL HCH 
AR(12,27,129):: CALL HCHAR(12,28,130) 
760 CALL HCHAR(12,29,131):: CALL HCHAR(13 
,26,132):: CALL HCHAR(13,27,133):: CALL 
HCHAR(13,28,134):: CALL HCHAR(13,29,135) 
770 CALL HCHAR(14,26,136):: CALL HCHAR(14 
,27,137):: CALL HCHAR(14,28,138):: CALL 
HCHAR(14,29,139):: CALL HCHAR(15,26,140) 
780 CALL HCHAR(15,27,141):: CALL HCHAR(1S 
,28,142):: CALL HCHAR(15,29,143):: CALL 
HCHAR(21,4,128):: CALL HCHAR(21,5,129) 
790 CALL HCHAR(21,6,130):: CALL HCHAR(21, 
7,131):: CALL HCHAR(22,4,132):: CALL HC 
HAR(22,5,133):: CALL HCHAR(22,6,134) 
800 CALL HCHAR(22,7,135):: CALL HCHAR(23, 
4,136):: CALL HCHAR(23,5,137):: CALL HC 
HAR(23,6,138):: CALL HCHAR(23,7,139) 
810 CALL HCHAR(24,4,140):: CALL HCHAR(24, 
5,141):: CALL HCHAR(24,6,142):: CALL HC 
HAR(24,7,143):: CALL HCHAR(10,9,81) 
820 CALL HCHAR(14,13,81):: CALL HCHAR(12, 
18,81):: CALL HCHAR(11,23,81):: CALL HC 
HAR(18,30,81):: CALL HCHAR(21,18,81):: CA 
LL HCHAR(21,9,81) 
830 CALL HCHAR(2,4,63):: CALL HCHAR(3,10, 
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.1380 CALL PATTERN(#HI,P):: 


63):: CALL HCHAR(6,13,63):: CALL HCHARC 
4,21,63) 

840 CALL HCHAR(14,2,93):: CALL HCHAR(18,4 
,93):: CALL HCHAR(18,10,93):: CALL HCHA 
R(24,11,93) 

850 CALL HCHAR(17,21,93):: CALL HCHAR(20, 
23,93):: CALL HCHAR(23,24,93):: CALL HC 
HAR(22,32,93) 

860 CALL SCREEN(2):: CALL MAGNIFY(4):: 
LL SPRITE(#2,48,12,170,128,H3,52,15,130 
,230,0,-S):: CALL SPRITE(H6,56,16,35,220, 
0,-3) 

870 CALL SPRITE(H7,112,5,10,4,0,12,#B,72, 
15,18,220,0,-2):: CALL SPRITE(H4,64,3,9 


CA 


6,45):: B=é4 :: D=112 

880 CALL SPRITE(#1,36,10,1460,125):: P=32 
1: C=3é :: NP=S :: F=0 :: AE=0 :: 2=0 

: AC=0 :: AP=0 :: PT=0 :: AM=0 :: BP=0 


890 CALL POSITIONCH6,1,6) 
900 IF G>6 AND G{240 THEN 910 ELSE 890 


910 CALL SPRITE(HS,40,2,49,G,0,-3):: R=40 
1: Q=S :: H=0 
920 AE=AE+1 IF AE=20 THEN GOSUB 1370 


930 IF D=116 THEN CALL PATTERN(#H7,112):: 

D=112 :: GOTO 950 

940 CALL PATTERN(R7,116):: D=11é 

950 CALL KEY(I,V,W):: IF V<)18 THEN 920 
960 CALL MOTION(#Q,-15,0):: FOR A=1 TO 20 
:: NEXT À :: CALL PATTERN(#HQ,44):: R=4 
4 

970 CALL MOTION(HG,15,0):: FOR A=1 TO 50 
:: NEXT À :: CALL SOUND(200,-2,0) 

980 CALL JOYST(1,X,Y):: CALL POSITION(#HO, 

S,T) 

990 IF Z2>=8 THEN 1010 

1000 IF H=2 AND Y)=0 THEN 1390 ELSE 1020 
1010 AC=AC+1 :: IF AC<=3 THEN 1020 ELSE 2 

=0 :: AC=0 

1020 CALL POSITION(HQ,S,T) 

1030 IF S(60 OR S)170 THEN GOSUB 1460 
1040 IF T{14 OR T)>234 THEN GOSUB 1510 
1050 IF Y}=0 THEN 1070 

1060 IF R=44 THEN 1080 ELSE CALL PATTERN( 
#Q,44):: R=44 :: GOTO 1080 

1070 IF R=40 THEN 1080 ELSE CALL PATTERN( 
#Q,40):: R=40 

1080 IF H=0 THEN 1100 

1090 CALL MOTION(H2,-Y,X) 

1100 CALL MOTIONCHQ,-Y,X) 

1110 F=F+1 :: IF F=6é THEN GOSUB 1560 
1120 IF D=112 THEN CALL PATTERN(H7,116):: 
D=11é :: GOTO 1140 

1130 CALL PATTERN(#H7,112):: D=112 

1140 CALL POSITION(H1I,M,N):: CALL POSITIO 

NC#Q,S,T) 

1150 IF N(=T THEN 1170 

1160 IF C=32 THEN 1180 ELSE CALL PATTERN( 
#1,32):: C=32 :: GOTO 1180 

1170 IF C=36 THEN 1180 ELSE CALL PATTERN( 
#1,36):: C=36 


1180 IF N)=T AND MS THEN K=-3 :: L=-3 :: 
GOTO 1220 

1190 IF N(T AND MÇS THEN K=3 :: L=-3 :: G 
OTO 1220 

1200 IF NCT AND M)=S THEN K=3 :: L=3 :: G 
OTO 1220 

1210 IF N)=T AND M)=S THEN K=-3 :: L=3 
1220 IF AP=1 THEN 1240 

1230 CALL MOTION(#I,-L,K):: GOTO 1260 


1240 IF B=64 THEN CALL MOTION(H1,0,0):: P 


T=PT+50 :: GOTQO 1260 

1250 AP=0 :: GOTO 1230 

1260 CALL COINC(HI,H#Q,4,AR) 

1270 IF AR()0 THEN 1580 

1280 IF H=Q THEN GOSUB 1710 

1290 IF H=1 THEN 1110 

1300 IF H=2 THEN GOSUB 1740 

1310 IF B=64 AND H=2 THEN GOSUB 1770 

1320 CALL COINC(HGQ,90,200,20 ,AX):: IF AX« 
>0 THEN GOSUB 1810 

1330 CALL COINC(HQ,176,30,20 ,AV):: IF AUX 
0 THEN GOSUB 1810 

1340 IF BP=1 THEN 980 

1350 IF PT)=8000 THEN NP=NP+3 :: BP=1 :: 


GOTO 980 

1360 GOTO 980 

1370 IF P=32Z THEN CALL PATTERN(#HI,P):: P= 
36 :: C=32 :: AE=0 :: RETURN 


AE=0 :: RETURN 

1390 IF S)>=130 AND S(=145 THEN 1420 
1400 IF S>=75 AND S<=90 THEN 1420 
1410 GOTO 1020 


1420 CALL POSITION(HQ,S,T):: IF T{i4 ORT 
2234 THEN 1440 
1430 2=2+1 :: Y=0 :: PT=PT-10 :: GOTO 102 


0 
1440 IF T{i4 THEN CALL LOCATE(#2,S,14):: 
CALL LOCATE(#HGQ,S,14):: GOTO 1430 

1450 CALL LOCATE(#2,S,234):: CALL LOCATE( 
#Q,S,234):: GOTO 1430 

1460 IF S(é0 THEN 1490 

1470 IF H=2 THEN CALL LOCATE(#2,170,T) 
1480 CALL LOCATE(#Q,170,T):: RETURN 

1490 IF H=2 THEN CALL LOCATE(#2,60,T) 
1500 CALL LOCATE(#Q,60,T):: RETURN 

1510 IF T(14 THEN 1540 

1520 IF H=2 THEN CALL LOCATE(#H2,S,234) 
1530 CALL LOCATE(#Q,S,234):: RETURN 

1540 IF H=2 THEN CALL LOCATE(#H2,S,14) 
1550 CALL LOCATE(#Q,S,14) 

1560 IF B=64 THEN CALL PATTERN(#4,68):: B 
=68 :: F=0 :: RETURN 

11570 CALL PATTERN(#4,64):: B=64 :: F=0 :: 
RETURN 

| 1580 IF Q=2 THEN CALL MOTION(#1,0,0):: CA 
LL POSITION(#2,BE,BF):: CALL LOCATE(#1, 
160,BF):: GOTO 890 

1590 NP=NP-1 :: CALL SOUND(400,-6,0):: CA 
LL MOTION(H1,0,0):: CALL DELSPRITE(#0Q): 

: 2 
1600 
1610 
1620 
1630 
THEN 
1640 


IF NP=0 THEN 1820 

IF H=0 THEN 1650 

CALL MOTION(#2,8,0) 

CALL POSITION(#2,AF,AG):: IF AF(169 
1630 

CALL MOTION(#2,0,0) 

1650 H=1 :: AP=0 :: GOTO 11190 

1660 CALL POSITION(Hé,AU,AV) :: CALL LOCAT 
EC#Q,49,AV):: CALL LOCATE(#2,49 ,AV) : : 

ALL MOTION(#GQ,0,-3) 

1670 CALL MOTION(#2,0,-3):: CALL MOTION(# 
1,12,0):: CALL SOUND(200,220,0) 

1680 CALL POSITIONC#1I,M,N):: IF M(160 THE 

N 1680 

1690 CALL MOTION(#1,0,0):: RANDOMIZE :: B 
C=INT(RND#224)+6 :: CALL DELSPRITE(#2): 

: CALL DELSPRITE(#Q) 

1700 CALL SPRITE(#2,48,12,170,BC):: Q@=2 : 
: PT=PT+1000 :: H=1i :: GOTO 1110 

1710 CALL COINC(#2,#Q,8,U):: IF U=0 THEN 
RETURN 

1720 CALL MOTION(#Q,0,0):: CALL POSITION( 
#2,SA,TA):: CALL LOCATE(HG,SA,TA) 

1730 CALL SOUND(50,110,0):: H=2 :: PT=PT+ 
200 :: RETURN 

1740 CALL COINC(HQ,#6,27,AF):: IF AF()0 T 

HEN 1660 

1750 CALL COINC(#Q,H#3,12,AH):: IF AH()0 T 

HEN 1580 

1760 RETURN 

1770 CALL COINC(HGQ,H4,12,AJ):: IF AJ()0 T 

HEN CALL SOUND(50,330,0):: CALL PATTERN 
(#4,68):: B=68 :: GOTO 1580 

1780 IF AP=1 THEN RETURN ELSE CALL COINC( 
#1,#4,15,AK) 

1790 IF AK<)0 THEN AP=1 

440,0):: F=0 :: RETURN 
1800 RETURN 

1810 CALL SOUND(50,550,0):: PT=PT-10 :: R 

ETURN 

1820 CALL DELSPRITE(ALL) :: 

OR À=22 TO 1 STEP -1 

1830 CALL SOUND(60,110#X°A,0):: NEXT À :: 
CALL CLEAR :: CALL CHARSET :: FOR A=1 

TO 8 :: CALL COLOR(A,12,2):: NEXT À 

1840 DISPLAY AT(5,8)BEEP:"TOUS VOS PLONGE 
URS" : "SONT MORTS..,!11" 

1850 DISPLAY AT(8,8):"####x###x%x" :: DISP 
LAY AT(12,1):"VOTRE TRESOR SE MONTE A:" 
:: IF PT(O THEN PT=0 

1860 DISPLAY AT(14,15):PT :: DISPLAY AT(1 

6,8):"PIECES D’OR..!" :: FOR A=1 TO 500 
:: NEXT À 

1870 DISPLAY AT(20,1)BEEP:"APPUYEZ SUR UN 

E TOUCHE" :"POUR REJOUER." 

1880 CALL KEY(QO,K,S):: IF S=0 THEN 1880 E 


57 


:: CALL SOUND(80, 


X=2*(1/20):: F 


P=32 :: C=36 :: = LSE 300 


58 


Ecriture littérale d’un nombre 


Christine Julien 


Suite au concours que vous propo- 
siez dans le numéro 4, je vous en- 
voie ce petit programme en Pascal 
qui écrit tout entier positif inférieur à 
un million. On peut aisément le mo- 
difier pour qu’il accepte des entiers 
plus grands; il suffit pour cela de 
changer le nombre de ’digits” du 
type entier et de rajouter une procé- 
dure million. 


Ce programme respecte les règles 
d'orthographe relatives à l'écriture 
des nombres, à savoir : 

e mille est toujours invariable (il ne 


prend jamais de ”s”); 

e cent et vingt prennent un ’s” 
que s'ils terminent l’adjectif numé- 
ral (deux cents, deux cent trente- 
trois); 
le trait d’union est obligatoire 
entre deux éléments s'ils sont tous 
deux inférieurs à cent et s'ils ne 
sont pas déjà reliés par un et”. 


{$R-) 
Program CONVERSION; 
type entier=integer[é]; 


var nb:integer; 
nombre:entier; 
saisie:boolean; 


procedure ecrire(nbre:entier); 
var JIquot:entier; 
quotient:integer; 


procedure moinsdemille(nb:integer); 


var quotient:integer; 


procedure moinsdevingt(nb:integer); 


begin {moinsdevingt} 

case nb of 
{:write(’un‘); 
2:write(’deux”); 
3:write(’trois’); 
4:write(’quatre”); 
Jiwrite(’cinqg’); 
éiwrite(’six”); 
7iwrite(’sept”); 
Biwrite(’huit’); 
Siwrite(’neuf’); 
I0:write(’dix’); 
{i:write(’onze”); 
12:write(’ douze); 
13:write(’treize’); 
{4:write(’quatorze”); 
15:write(’quinze’); 
léiwrite(’seize’); 
17:write(’dix-sept”) 
i8:write(’dix-huit”) 


Le programme que je vous présente 
illustre assez bien ce que l’on ap- 
pelle, en Pascal, l’analyse descen- 
dante. 

En effet, une fois le nombre saisi, le 
programme regarde s'il est plus 
grand que mille, agit en conséquence 
puis regarde si le reste est plus grand 
que cent, etc. Ce découpage du 
traitement en procédures facilite 
grandement la résolution du pro- 
blème car il colle d'assez près à 
l'analyse naturelle que l'on est 
amené à faire. On perçoit là l’un des 
nombreux avantages du Pascal. 


Points particuliers 
programme 


du 


Le (*x$R-x) de la première ligne est 
une directive de compilation indi- 
quant au programme qu’il n’a pas à 
vérifier la validité des différents inter- 
valles de variations des variables (no 
range checking), la présence de cette 


commande permet d’accélerer le 


programme. 


La saisie du nombre est protégée par 
la suppression du contrôle de validité 
des entrées/sorties (directive $l-). Si 
le format d'entrée est incorrect, le 
nombre est ignoré et garde sa valeur 
précédente. Par ailleurs si le nombre 
est supérieur ou égal à un million un 
message d'erreur est affiché. 


Le type classique INTEGER n'’accep- 
tant que des nombres inférieurs à 
37767, le programme définit un type 
ENTIER permettant de traiter des en- 
tiers écrits sur six chiffres (donc jus- 
qu'à un million). Cette possibilité, 
que seul le Pascal UCSD permet, est 
extrêmement intéressante, bien que 
de tels entiers ne puissent pas être 
manipulés par tous les opérateurs 
arithmétiques. C’est le cas de MOD 
qui a du être simulé dans la procé- 
dure ECRIRE. = 


19:write(‘dix-neuf‘) 


end; 
write(® ‘) 
end; 


begin {moinsdemille} 


if nb )= 100 then 


begin 


quotient:=nb div 100; 


nb:=nb mod 100; 


if quotient > { then moinsdevingt(quotient); 


write(’cent”); 


if (quotient)i) and (nt=0}) then write(’s ‘) 


end; 
if nb )= 0 
then 
begin 
nb:=nb-80; 


else write( ‘) 


write(’quatre-vingt”); 
if nb=0 then write(’s ‘) 
else begin 


end 
else 
if nb )= 60 
then 
begin 
nb:=nb-60 ; 


write(‘-’); 
moinsdevingt(nb) 


write(’soixante”); 
if(nb=hor(nb=11) then write(’-et-’) 


else if nb)0 then 
write(’-’); 


moinsdevingt(nb) 
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end 
else if nb >= 20 
then 
begin 
quotient:=nb div 10; 
nb:=nb mod 10; 
case quotient of 
2iwrite{‘vingt"); 
3:write(’trente”); 
d:write{’quarante‘); 
Siwrite(’cinquante‘) 


end: 
if nb=1 then write(’-et-") 
else if nb)0 then writet‘-"); 


moinsdevingténb) ; 
end 
else 


if nb > O0 then moinsdevingt(nb) 


end; 


begin {ecrire} 

if nbre>=1000 then 
begin 
lquot:=nbre div 1000; 
quotient:=trunc(lquot); 
nbre:=nbre-1000%1quot; 


if quotient > 1 then moinsdemilletquotient); 


write(’mille ‘) 


end; 


nb:=trunc{(nbre) ; 
moinsdemille(nb) 


end; 


begin {programme principal) 


page(output); 
writeln(’ 
writeln(* 
repeat 
writeln; 
repeat 
saisie:=true; 


Ecriture d‘‘un entier positif‘); 
inferieur a un million‘): 


write(®? ‘,chr(73); 


{$I-} 


readin(nombre); 


{$I+1 


if nombre>95996 then 


begin 


9 
writeln(’Nombre trop grand’); 


saisie:=false 


end 


until saisie=true: 


ecrire(nombre); 


writeln 
until nombre={; 
page(output) 
en 


Copie d’écran sur imprimante Epson 


Copie sur imprimante d’un 
écran ne comportant que 
des caractères standards 


L'espacement des lignes est mis à 
8/72ème de pouce pour respecter au 
mieux la géométrie de l’écran. 

Le début du programme n’est qu’un 
exemple, le sous-programme d’im- 
pression proprement dit commençant 
à la ligne 320. 


100 REM #HHHRNNENNNENNENRNENEIEE 
105 REM *# Impression d’ecran # 
110 REM *# contenant # 
115 REM * uniquement des +# 
120 REM *# caracteres # 
125 REM # standards # 
130 REM RHIN 
135 REM # Basic TI # 
140 REM HN 
150 REM 

169 CALL CLEAR 

170 FOR I=1 TO 24 

180 FOR J=i TO 28 

190 PRINT CHR$(64+1) ; 


ESSION 

240 REM ON DOIT APPUYER SUR LA T 
OUCHE “Pp" 

250 CALL KEY(3,K,S) 

260 IF K(80 THEN 250 

270 GOSUB 320 

280 STOP 

290 REM 

300 REM PROGRAMME D’ IMPRESSION 


310 REM SI VOUS UTILISEZ UN BRA 
NCHEMENT SERIE,METTEZ VOTRE ORDR 
E HABITUEL SUIVI 

DE .CR 

320 OPEN #1:"PIO.CR" 

330 REM ESPACEMENT DES LIGNES D 
E 8/72 INCH POUR RESPECTER L’ INT 
ERLIGNE DE L’ECR 
AN 

340 REM AVANCE DE LIGNE ET RETOU 
R CHARIOT 

350 PRINT #1:CHRS(17)8CHR$(27)&" 
A"&CHRSC(B)&CHRS( 10) &CHRS (13) ; 
360 FOR 1=1 TO 24 

370 FOR J=1 TO 32 

380 CALL GCHAR(I ,J,0) 

390 IF C)32 THEN 410 

400 C=32 


Denise Amrouche 


410 PRINT #1:CHR$(C); 

420 NEXT J 

430 PRINT #1:CHR$(13) ;CHRS(10) ; 
440 NEXT 1 

450 PRINT #1:CHR$(27);°2"; 

460 CLOSE #1 

470 RETURN 


Copie sur imprimante d’un 
écran obtenu à partir d’un 
programme en Basic Etendu 
utilisant des ’CALL CHAR” 


Rappelons d’abord brièvement 
comment les caractères graphiques 
doivent être transmis à l'Epson. 

Alors qu’en TI Basic on utilise un co- 
dage par tranches horizontales, l’Ep- 
son demande un codage par tran- 
ches verticales de 8 points. Ainsi, 
l'ensemble de 8 points représenté ci- 
dessous est associé, en base 2, au 
nombre 11010010 et en base 10 à 
Ox1+1x2+0%2 2+0%2 3+1x2 4+ 





0x2 5+1x2 6+1x2 7 en allant de 
droite à gauche, soit 210; il nécessi- 
tera donc la transmission à l’impri- 
mante de CHR$(210). 


Le programme doit donc assurer la 
traduction. Cela est tout à fait possi- 
ble mais, pour obtenir une copie 
d'écran agrandie (où chaque point 
de l'écran devient 4 points sur le pa- 
pier), il me fallait patienter près d’une 
heure. D'où l’idée de raccourcir la 
phase de traduction en ”tournant” 
l'écran : le haut de l’écran devenant 
le bord droit du papier. Il suffit alors 
de patienter environ un quart 
d'heure. 


100 HN 
# Copie d’ecran sur # 
* imprimante Epson * 


105 


! 

OPTTETE EEE TETE IT TITE 
1 # Basic Etendu  * 
NTTETIPFTE EESTI TE 
1 # Si vous utilisez * 
U# une imprimante  * 
! *serie, reglez votre * 
U# imprimante sur  * 

JE huit bits * 

195 LOHRRRRRREHNRNNENX 
160 ! 
200 CALL CLEAR 

210 CALL CHAR(58,"181818FFFF1818 
1824242424242424240000FF0000FF00 

0024242720203F") 

220 FOR L=1 TO 24 

230 FOR 1=1 TO 4 :: CALL HCHAR(L 
57#1-4,5741,5):: NEXT I 

240 NEXT L 

250 ! APPUYER SUR P POUR OBTENIR 
UNE COPIE 

260 CALL KEY(O,K,S):: IF K()280 T 

HEN 260 

270 GOSUB 310 

280 GOTO 260 


SOUS-PROGRAMME D’ IMPRESS 


310 DATA 0,3,12,15,48,51,60,63,1 
92,195,204,207,240,243,252,255 
320 DIM A(15) 

330 FOR 1=0 TO 15 :: READ A(I):: 
NEXT 1 

340 ! POUR UN BRANCHEMENT SERIE, 
METTEZ RS232.Bf=9600 .DÂ<8.CR 
350 OPEN #1:"PIO.CR" :: PRINT #1 
1CHR$(13) ;CHR$(27) ; "A" ;CHRS(B) ; 


360 FOR CO=1 TO 32 :: 6$,D$="" 
370 FOR LI=24 TO 1 STEP -1 :: CA 
LL GCHAR(LI,CD,CH):: IF CH=31 OR 
CH=32 THEN G$=6 

SERPTSCCHRS(0) ,16):: DSEDILRPTS( 
CHR$(0) ,16):: GOTO 420 

380 CALL CHARPAT(CH,C$):: FOR L= 
15 TO 16 :: FOR J=0 TO 7 :: WEAS 
C(SEGS(C$ ,L-2#J, 

1)) 

390 1F W)64 THEN WEV-55 ELSE WW 
-48 

400 1F L=15 THEN G$=GS#&RPTS(CHRS 
(A(W)),2)ELSE D$=DS&RPTS(CHRS(AC 
W)),2) 

410 NEXT J :: NEXT L 

420 IF LI=13 THEN 66$=6$ :: G$=" 
“ss DDS=D$ :: D$="" 

430 NEXT LI 

440 PRINT H1:CHR$(27) ;"K" 3; CHR$(1 
rt ai aid ne mnt di 
450 PRINT #1:CHR#(27) ;"K" ;CHRS(I 
28) ;CHR$(1) ;DD$ ;D$ ; CHRS(13) ;CHR$ 
(10):: NEXT CD : 

: CLOSE #1 :: RETURN 

Comme pour le premier programme, 
le début n’est qu’un exemple, l’im- 
pression d'écran étant effectuée par 


le sous-programme final. Donnons- 
en le schéma : 


e Le travail se fait colonne par co- 
lonne, la première colonne 
d'écran devenant la première et la 
deuxième ligne sur le papier, puis- 
que l’on a choisi d'agrandir le des- 
sin. 


e Partant du bas de la colonne, on 
lit successivement le code ASCII 
du caractère occupant cet empla- 
cement (CALL GCHAR) puis le 





patron de ce caractère (CALL 
PATTERN). Ce patron va nous 
donner 2*16 codes à envoyer à 
l'imprimante (2x2x8 à cause de 
l'agrandissement), 16 pour la pre- 
mière ligne mise dans G$ et 16 
pour la seconde ligne mise dans 
D$ (partie droite). 


Ce caractère étant sur l'écran, le pre- 
mier code à transmettre à l’impri- 
mante correspond à la dernière ligne, 
première moitié. Une fois agrandie 
(x2) et mise comme sur le papier, on 
doit obtenir : 


On doit donc envoyer, pour un co- 
dage 2 sur le TI, les codes 
CHR$(12)&CHR$(12)&.. 

Ne vous affolez pas, le programme 
fait très bien tout cela pour vous. 


Les chaînes en Basic TI ayant une 
longueur maximale de 255 caractè- 
res, chaque ligne sera envoyée à 
l'imprimante en deux parties : 
GG$;G$ ou DD$;D$ 

et pour chacune on annonce à l’im- 
primante qu'on lui envoie une 
chaîne de 2192, soit 384 caractères 
graphiques. 
CHR$(27);"K”;CHR$(128);,CHR$(1) 
car 384=128+1%+256 


Quelques précisions 


e Les lutins ne seront pas reproduits 
sur l'imprimante. 


e L’imprimante utilisée ne connais- 
sant pas les couleurs, il n’y aura ni 
couleur ni nuance. Tout point 
’on”, même s'il est en blanc sur 
fond noir, apparaîtra en noir sur 
fond blanc. 

Si votre dessin provient d’un pro- 
gramme en Basic simple (par 
exemple parce qu'il nécessite la 
redéfinition de nombreux caractè- 
res), vous pouvez adapter ce pro- 
gramme : si la mini-mémoire est 
insérée, vous disposerez encore de 
la fonction CALL CHARPAT; 
sinon, il faudra stocker dans un ta- 
bleau les patrons des caractères au 
fur et à mesure de leur création. 

En tout état de cause, il faudra 
compter ici une bonne demi-heure 
pour obtenir votre copie d'écran. 


Description du port d’entrée/sortie 


Eliane Dacquay 


Ce premier ‘’épisode” vous propose 
la description du port d’entrée/sortie, 
situé sur le coté droit de la console. 


ques, nous débutons ici une série 
d'articles sur l'architecture du TI- 
99/4A. 


En réponse à de nombreuses de- 
mandes de renseignements techni- 
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Dans les prochains numéros, nous port des modules ”Solid State Soft- teurs qui, ayant du mal à trouver des 


examinerons le brochage du TMS  ware”, etc... périphériques pour leur ordinateur, 
9900, son organisation, le câblage du Nous espérons ainsi satisfaire nos lec- souhaitent les réaliser eux-même. 
Noms Broches Entrée/Sortie Description * 
A0 (MSB) 31 Sortie 
Ai 30 Sortie Bus d’adresses 
A2 20 TOUTE lenesrnsree id 
Â3 10 Sortie 
A4 7 Sortie AG à ÀAiS représentent le bus d'adresses, 
AS J Sortie Ce bus fournit le vecteur d'adresse mémoire 
fé 29 Sortie sur jé bits, au système mémoire externe, 
A7 17 Sortie lorsque MEMEN est actif. Le bit d’adresse 
A8 14 Sortie 15 est aussi utilisé pour les sorties de 
A9 18 Sortie données CRU dans les instructions de 
Ai0 é Sortie sorties du CRU 
Ali 8 Sortie 
A12 ji Sortie 
413 15 Sortie 
Ai4 1é Sortie 
A15/CRUOUT 19 Sortie 
DG 37 Entrée/Sortie Bus de données 
Di 40 Entrée/Sortie —------------- 
D2 39 Entrée/Sortie D0 à D7 représentent le bus de données 
D3 42 Entrée/Sortie bidirectionel. Ce bus tranfère les données 
D4 3 Entrée/Sortie vers {en écriture) et depuis (en lecture) 
D5 38 Entrée/Sortie le système mémoire externe lorsque MEMEN 
Dé 36 Entrée/Sortie est actif. É 
D7 34 Entrée/Sortie 
| Bus de Controle 
MEMEN 32 Sortie MEMory ENabTe., MEMEN indique un accès 
mémoire, Dérivée de la broche MEMEN du 
| CPU. meme parité. 
DEIN 9 Sartie Data Bus IN, Guand actif (haut), les 
el BA de données et le 9900 sont en mode 
“entrée”, 
WE 26 Sortie Write Enable,. WE indique une écriture en 
| mémoire. ne 
MBE 28 Sortie Memory Block Enable. MBE indique un accès 
| dans le bloc mémoire >4000-)SFFF (bas), 
CRUCLK 22 Sortie Fi CLocK. Inversion de la broche CRUCLK 
U . 
CRUIN 33 Entrée CRU data IN. Liane d‘’entrée des données 


vers l‘ardinateur (CRU vers CPU), 









Controle mémoire 


READY 12 Entrée READY Tquand MEMEN est actif) que la 
mémoire externe est prete pour un accès. 
14Q 41 Sortie Instruction ÂcGuisition : indique que Île 


CPU est en cours de saisie d‘instruction, 
durant le cycle mémoire courant, 


Controle et temporisation 
LOÂD 13 Entrée Quand actif, LUAD provoque l'exécution par 
le CPU d’une interruption non masquable. 
Les adresses mémoire >FFFC et >FFFE 
contiennent les vecteurs de la nouvelle 
| mémoire de travail et du nouveau PC, 
RESET 3 Sortie Quand actif, RESET provoque la réinitiali- 
sation de l'ordinateur et des périphériques 
RESET doit etre actif pendant au moins cinq 
cycles d‘’horloge. 


EXT INT à Entrée EXTernal INTerrupt. Quand actif, EXT INT 
prongque l'exécution d‘une interruption par 
e , 

03 24 Sortie Phase 3 de l’horloge du CPU. 


Alimentation 
rence de masse, 







GND 2 
2 


Signaux du synthétiseur de parole 

SBE F4 Sortie Speech BTocK Enable. SBE nique un accès 
dans la mémoire du synthétiseur. 

AUDIO IN 44 Entrée Entrée audio depuis le synthétiseur. 

+5 Ï Tension d’alimentation (+5v nominale) pour 
le synthétiseur (50ma max imum)*. 

9 43 Tension d’alimentation (-5v nominale) pour 
le synthétiseur <50ma maximum)*. 






*# Une surcharge sur les broches 1 et 43 peut endommager la console. 
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Translet 


Georges Dejolier 


Suite à la rubrique ”’A vous de pro- Comme vous pourrez vous en rendre France et B pour la Belgique); 
grammer” du numéro 4 de 99”, je compte, l’utilisation en est très sim- e le nombre à convertir (9 chiffres 
vous communique un programme  ple. L'appel de la routine constituant maximum); 

écrit en Basic Etendu, que j'ai bap- la partie active du programme re- e la chaîne de caractères destinée à 
tisé Translet (pour transposition en  quiert trois paramètres : recevoir le résultat. 


lettres). e le pays de travail (F pour la # 


100 ! HHXKXEEAEEEREERERÉEREREEE 900 I=i 
110 ! +x TRANSLET ä 510 J=INT({A(I)/100) 
120 ! HXKXXXEXEXERELEEEEREERERE 520 K=INT({A(I)-J*100)/10) 
130 ! * Basic Etendu x 530 L=A(I)-INT(ACI)/103#10 
140 ! HXXXXEXEEEREREEEEREEREEX 540 IF A{I1)=0 THEN 980 
150 ! 550 IF A(I)<{10 THEN &60 
160 CALL CLEAR 560 IF ASI)<100 THEN 670 
170 INPUT "PAYS?" :P#$ 570 IF J=i THEN 590 
160 INPUT "NOMBRE?" :ÀÂ 580 29=2$58A$(J) 
190 IF A)>999999999 THEN 180 590 2$=2$&" CENT" 
200 CALL TRANSLET(P#,À,2#) 600 IF K>0 THEN 670 
210 PRINT 2$ 610 IF Li0 THEN 720 
220 PRINT 620 IF J=i THEN F1û 
230 GOTCO 170 630 IF I1=2 THEN 910 
240 ! 640 2$=2$&"S" 
250 ! KEHEXEKEAEEEXEEEEEÉEEEEX éS0 IF K=7 THEN 1020 
|! x  Sous-programme * 660 GOTO 910 
LOXALXXKEREEEEEREREREEEEE 670 IF K=1i THEN 8Sû 
! 680 IF R$="B" THEN 710 
REM PROGRAMME TRANSLET 690 IF K=7 THEN 10270 
REM AUTEUR GEORGES DEJOLIER 700 IF K=9 THEN 1020 
REM ERUXELLES 710 2$=2#&B#t(K) 
DATA * ET UN"," DEUX"," TROIS"," QUAT| 720 IF L=Q0 THEN 790 
s CINN'u" SIA s SEPT’ 4" HULT"S" NE 730 IF L{)1 THEN 750 
UF" 740 IF K=8 THEN 770 
330 DATA “ DIX"," VINGT"," TRENTE"," GQUAR| 750 24=2#&A#{L) 
ANTE" ," CINQUANTE" ," SOIXANTE" ," SEPTAN 760 GOTO 910 
TE" ," QUATRE-UVINGT"," NONANTE" 770 2$=2#&" UN" 
340 DATA " ONZE"," DOUZE"," TREIZE"," QUA| 730 GOTO 910 
TORCE" ," QUINZE" ," GSETZE"," DIX-SEFT" 790 IF K<>8 THEN 5710 
DIX-HUIT" ," DIX-NEUF"* 800 IF I=2 THEN 910 
350 SUB TRANSLET(RS A1 ,2$#) 810 2$3=2$8"S" 
360 RESTORE 320 820 GOTO 910 
370 FOR I=i TO 7 | 830 IF L<)0 THEN £é0 
380 READ A${1) 840 2+5=2$58&B$ (1) 
390 NEXT I]! 850 GOTO 910 
400 FOR I=i TO 9 860 2$=2#8&CH{L) 
410 READ B$(1) 870 GOTO 910 
420 NEXT 1! 880 IF L)>i THEN 720 
430 FOR I=i TO 9 890 IF I=2 THEN 910 
440 READ C${(1) 900 2$=2$&" UN" 
450 NEXT 1! 910 IF I=i THEN 950 
460 2$="" 920 IF 1<>2 THEN 1010 
470 A(1)=INT(AI/1000000) 930 2$=2$&" MILLE" 
480 A(2)=INT((AÎ-A(1)#1000000)/1000) 940 GOTO 980 
A(3)=Ai-A(1)*1000000-A(2)*1000 950 2$=2$&" MILLION" 
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960 IF A(I)<2 THEN 980 
970 28=2$&"S" 

980 IF 1=3 THEN 1010 
990 I=I+1 

1000 GOTO 510 

1010 SUBEXIT 

1020 2$=2$&B$(K-1) 
1030 IF L<)30 THEN 1060 


Nous sommes un club (association 
loi 1901) à vocation toutes informati- 
ques, avec, vu le prix et les capacités 
du TI-99/4A, une dominante actuel- 
lement pour ce matériel. 


Notre club a été fondé en Juin 83 et 
est organisé pour accueillir toute per- 
sonne qui, dans la région, s'intéresse 
à l'informatique. 


Nos adhérents, avec leur carte du 
club, reçoivent un bulletin bimestriel, 


1040 2$=2#$8&B# 11) 


1050 GOTCO 510 
IF Li THEN 1070 
IF K=9 THEN 1090 
1980 2$=2$&" 


1060 
1070 


BF” 


1070 24=28&C#{L) 


1109 GOTQ 910 


1110 SUBEND 


Le Club Ordinobis 


et ont directement accès à notre pro- 
grammathèque (plus de 150 logiciels, 
surtout pour TI). 

Grâce à des accords avec des four- 
nisseurs, les membres du club peu- 
vent obtenir des réductions sur pré- 
sentation de leur carte, cela pour 120 
F par an. 


Actuellement, en plus de nos perma- 
nences téléphoniques du Lundi au 
Mercredi, nous offrons deux jours de 
réunions : réunion informelle (pour 


faire fuser les idées) le Jeudi soir, e 
réunion formelle (cours de Basic 
pour débutants) le Samedi après 14 


heures. 


Notre adresse : 


Club Ordinobis 
Boîte postale 57 
33603 Pessac 


Téléphone : 


Lundi après 17h - (56) 30.55.01 
Mercredi après 17h - (56) 45.55.16 





Courrier des lecteurs 


Alexandre Duback 


Par quel miracle 99 Magazine” sur- 
vit-il? J'espère que tous les 
’Texans” vous resteront fidèles car 
votre magazine devient notre Bible... 
Avant de vous mettre à contribution, 
je vous livre l'information suivante 
concernant le logiciel ‘Gestion Pri- 
vée”! 


La déclaration du nom de l'impri- 
mante en sortie parallèle, pour obte- 
nir une copie d'écran, doit avoir la 
syntaxe ‘PIO.” au lieu de "PIO” 

En effet, si vous ne faites pas suivre 
la déclaration PIO d’un point, la 
communication avec l'imprimante 
n'existe pas. 


Passons à ma question qui concerne 
encore l’utilisation d’une imprimante, 
la GP 100AÀ de Seikoska en la cir- 
constance. Si les déclarations en 
mode ‘’normal” ou ‘’dilaté” ne me 
posent pas de problèmes, je suis in- 
capable d'utiliser le mode graphique. 
I semble que la commande 
CHR$(8) ne soit pas suffisante pour 
obtenir les caractères redéfinis par 
l'instruction CALL CHAR”. Pouvez 
vous m'indiquer la marche à suivre 
pour que l'imprimante accepte ces 
caractères. 

Je dois avouer que la solution à ce 
problème me permettra sans doute 
de récupérer quelques heures de 
sommeil. 


Daniel Leligny - 190 Boulevard Jac- 
ques Cartier - 35100 Rennes 


Il n'y a pas de miracle ! Seule notre 
détermination à continuer et la 
confiance de nos lecteurs font que 
vous pouvez toujours lire 99 Maga- 
zine”. 


Nous avions déjà rencontré ce pro- 
blème d'imprimante avec l’Edi- 
teur/Assembleur, et nous en avons 
trouvé la cause : la routine utilisée 
pour le pilotage d’un périphérique 
(DSRLNK) cherche le ou les points 
séparant le nom de l'appareil et le ou 
les éventuels paramètres (PIO.LF ou 
RS232.BA=9600.PA=E, par exem- 
ple). Si cette routine ne trouve pas 
de point, elle ne reconnaît pas le pé- 
riphérique. 


Comme vous le supposez, il ne suffit 
pas de faire passer l'imprimante en 
mode graphique pour transmettre 
des caractères redéfinis avec CALL 
CHAR. La copie d’écran sur une GP 
100 fait partie de nos projets, mais 
vous pouvez déjà vous inspirer du 
programme de Denise Amrouche, 


publié dans ce numéro, et concer- 
nant l'imprimante Epson. 


Amateur de vidéo, j'aimerais vous 
poser une question. Est-il possible de 
faire un générique à partir du TI- 
99/4A (c'est-à-dire une image ou un 
texte que je puisse enregistrer sur un 
magnétoscope). J'ai entendu dire 
qu'avec certains micro-ordinateurs, 
on pouvait faire de l'affichage sur un 
téléviseur par surimpression. 

Si vous pouviez m'aider à élucider 
cette question, je vous en serais re- 
connaissant. 


Yves-Marie Lamirault - 8 résidence 
des Hauts de Gien - 45500 Gien 


Il est effectivement possible d’enre- 
gistrer des images issues du TI sur un 
magnétoscope. Le schéma, situé au 
bas de la page 64 du numéro 4 de 
99”, était d’ailleurs destiné à expli- 
quer la marche à suivre pour arriver 
à ce résultat. Malheureusement, un 
violent coup de ciseaux au moment 
du maquettage a fait disparaître le 
texte accompagnant le dessin. 


Pour enregistrer les images du TI, il 
faut se munir d’un modulateur UHF, 
que l’on raccorde sur la prise d’an- 
tenne du magnétoscope. Vous pou- 
vez utiliser le modulateur proposé 
par Texas Instruments ou, si vous ne 
le trouvez pas, un convertisseur Péri- 
tel/UHF de marque VIDEO 
MATCH” distribué, entre autres, par 
Pentasonic - 34 rue de Turin - 
75008 Paris. Ce convertisseur coûte 
environ 440 F. 

Nous ne pensons pas qu’il soit possi- 
ble de superposer des images issues 
du TI à des images télévisées, à 
moins qu'un de nos: lecteurs 
connaisse le truc. À suivre... 


Je voudrais savoir si votre société 
dispose encore actuellement des pro- 
grammes de Basic Etendu pour TI- 
99/4A, ainsi que le jeu Foot Ball. 


Jean-Philippe Ravelet - 25 rue Alfred 
de Vigny - 54630 Richardmeuil 


Nos activités se limitent à la publica- 
tion de ‘99 Magazine” et de 
"Pom's” (pour les utilisateurs d’ordi- 
nateurs Apple). Les seuls logiciels 
que nous proposons pour le TI sont 
ceux qui accompagnent la revue. 


J'achète ‘99 Magazine” et je le 
trouve très bien, mais j'ai quand 


même quelques griefs et doléances à 
formuler : 


1) Les préfixes. Pour les petites an- 
nonces, les gens mettent un numéro 
de téléphone, sans spécifier le dépla- 
cement et même le pays. 99” pour- 
rait insister sur ce fait. 


2) Le coût Le magazine est cher, 
par rapport à d’autres, ne pourrait-on 
y inclure plus de publicité, cela ferait 
diminuer son prix. 


3) La touche RESET. Ne pourrait-on 
nous l'expliquer, quand on le de- 
mande à des vendeurs, ils ne savent 
pas, ou bien il faut payer (sans 
doute). 


4) Un truc que j'aimerais voir déve- 
lopper : sur certains ordinateurs, en 
enfonçant deux touches simultané- 
ment, on fait apparaître un mot en- 
tier. Peut-on, avec la mini-mémoire, 
imiter cela. 


5) Certains ordinateurs emploient des 
"super expenders”, sortes de domi- 
nos permettant de brancher plusieurs 
jeux, le Basic Etendu, la mini-mé- 
moire, etc. sans devoir retirer l’un 
pour l'autre, j'ai posé la question et 
on m'a dit non. Est ce uniquement 
parce que cela n'est pas concevable. 


Monsieur Simon 


Voilà un bon nombre de questions et 
suggestions, auxquelles nous allons 
essayer de répondre le plus juste- 
ment possible. 


1) Effectivement, le manque d’indica- 
tif peut décourager les éventuels 
acheteurs (ou vendeurs), mais nous 
ne pouvons reproduire dans la revue 
plus que l’on nous communique. 


2) "99 Magazine” est uniquement 
destiné aux utilisateurs de matériel 
Texas Instruments. Pour cela, la 
revue est considérée par l’administra- 
tion française comme un organe 
maison”, alors que nous ne 
sommes absolument pas liés à cette 
société (vous ne seriez pas en train 
de nous lire) Nous ne bénéficions 
donc pas des tarifs consentis à la 
presse écrite, en particulier pour ce 
qui concerne les tarifs postaux. 


D'autre part, nous ne pouvons pas 
obliger d'éventuels annonceurs à 
faire de la publicité dans 799”. Par 
contre, si vous avez quelque chose à 
vendre, vous pouvez contacter notre 
régie publicitaire, et soyez sûr que 
votre demande sera prise en considé- 
ration. 


Enfin, 799” est peut-être chère par 
rapport à d’autres revues, mais si 
vous comparez les nombres de pages 
utiles aux possesseurs d’un TI... 


3) Donner une explication précise du 
fonctionnement de la touche 
"RESET” proposée dans le numéro 
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3, et améliorée dans le numéro 4, 
occuperait de nombreuses pages. De 
plus, un tel article serait absolument 
incompréhensible pour les lecteurs 
ne possédant pas une formation 
d’électronicien. 


4) Comme sur tous les ordinateurs, 
les mots clés du Basic sont ”’tokeni- 
sés”. C'est-à-dire qu'ils sont codés 
sur un caractère ASCII, généralement 
supérieur à 127 (caractères de 
contrôle). Tapez la ligne suivante : 


10 REM 

puis enfoncez la touche CTRL-H, et 
appuyez sur ENTER”. 

Si vous éditez cette ligne, vous verrez 
apparaître : 


10 REM RETURN 


On peut en déduire que le code in- 
terne de "RETURN est 136 (CTRL- 
H est équivalent à 136) 


Ceci ne présente pas un grand inté- 
ret puisqu'il est plus facile de taper 
un mot clé que de rechercher le 
code équivalent dans une table. De 
plus, ces codes ne sont acceptés qu’à 
la suite de ”’REM”. La saisie d’un 
programme par cette méthode serait 
certainement plus longue que par la 
méthode classique (recherche des 
codes, supression des REMSs, erreurs 
possibles). 


5) Un connecteur multiple existe aux 
Etats Unis. Cet appareil accepte jus- 
qu'à trois modules qui sont sélection- 
nés par un commutateur. Le fait de 
changer manuellement de module ne 
représente pas un travail considéra- 
ble et nous considérons que ce 
connecteur est à ranger au nombre 
des gadjets. 


N'ayant plus à faire l'éloge de votre 
magazine, je désirerais solliciter vos 
services pour un renseignement. 

Je suis néophyte en informatique et 
je me suis dirigé vers le T1-99. Grâce 
à votre magazine, j'ai pu apprendre 
la plupart de mes connaissances dans 
ce domaine. 


Dans votre numéro 2, l’article consa- 
cré au TI-Writer a attiré mon atten- 
tion au sujet des 40 caractères dispo- 
nibles en Basic. 


Pourriez-vous me faire savoir 
comment acquérir cet ensemble de 
programmes ? 


Roland Lardin - 113 rue de la Vallée 
- 6290 Malinnes - Belgique 


Mettons tout de suite les choses au 
point: le Basic est allergique au 
mode 40 colonnes. S'il est possible 
de passer en 40 colonnes, cela ne 
sert à rien puisque l'affichage se fait 
en incolore sur cyan, ce qui n’est pas 
la meilleure solution pour la lisibilité. 
D'autre part, s’il est possible d’appe- 
ler une routine en assembleur pour 
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changer les couleurs, et ensuite reve- 
nir au Basic, l'affichage devient inco- 
hérent puisque l’interpréteur 
conserve ses habitudes (32 colonnes 
avec HCHAR ou VCHAR et 28 co- 
lonnes avec PRINT). 


Il vaut mieux réserver ce type d'affi- 
chage aux programmes en assem- 
bleur. Vous avez des exemples 
concrets du mode 40 colonnes avec 
le Mastermind du numéro 3 et le dé- 
sassembleur publié dans ce numéro. 


Est-il possible de relier le TI-99 à une 
imprimante Star Gemini 10, sans 
passer par le boîtier d'extension, 
cette imprimante possédant, en op- 
tion, une interface RS232. 


Roger Feyssaguet - Chizé - 79170 
Brioux sur Boutonne 


Voilà bien la preuve que les notices 
et publicités des constructeurs ne 
sont pas toujours très claires. En 
effet, cette imprimante est interfacée 
pour recevoir des signaux provenant 
d’une carte RS232, mais n’est pas 
équipée d’une telle interface. 


Permettez-moi, tout d’abord, de vous 
féliciter pour la qualité de votre revue 
qui permet aux possesseurs de TI-99 
de découvrir les secrets de la pro- 
grammation. 


Cependant, depuis l'arrêt de la fabri- 
cation de ce micro, il est devenu dif- 
ficile de se procurer le module ‘Basic 
Etendu”, et il serait intéressant de sa- 
voir si certaines de ses instructions 
ont un équivalent en Basic TI. 


Par exemple, les instructions AND” 
et OR”, dans les lignes suivantes : 


300 IF N=Z AND T>N1 THEN 302 
ou 
260 IF Z<1 OR Z>10 THEN 240 


Christian Pino - 23 Avenue Jean 
Jaures - 34370 Cazouls les Beziers 


Les ’ANDs” et ”’ORs”, losqu'ils sont 
utilisés de cette façon, peuvent être 
remplacés par ’’*x” (pour AND) et 
+7 (pour OR). Ainsi, les lignes 
citées dans votre courrier devien- 
nent : 


300 IF (N=Z) x (T>N1) THEN 302 
et 
260 IF (Z<1) + (Z>10) THEN 240 


J'ai pu constater qu'avec le Basic 
Etendu, trois routines ne sont plus 
disponibles par rapport au module 
Editeur/Assembleur. Il s’agit des rou- 
tines suivantes : GPLLNK, DSRLNK 
et LOADER. 


Peut-on écrire en assembleur ces 


trois routines pour une utilisation à 
partir du Basic Etendu ? 


Bernard Bezuel - 7 rue du Poirier 
Fourrier - 95100 Argenteuil 


En assembleur, tout est possible 
(dans les limites des possibilités de la 
machine). 


Le meilleur moyen, pour récupérer 
ces routines est d'utiliser le désas- 
sembleur proposé dans ce numéro. 
Après les quelques modifications in- 
dispensables (mémoire de travail de 
l'interpréteur GPL, par exemple), 
vous pourrez les réassembler et les 
utiliser à partir du Basic Etendu. 
Toutes les routines système, avec 
l’'Editeur/Assembleur, se situent entre 
>2000 et >26FF. 


Après de vaines recherches, j'ai fini 
par vous écrire pour un problème 
qui me ftracasse depuis quelque 
temps. 

Existe-t-il un moven pour inhiber la 
touche “CLEAR” qui arrête un pro- 
gramme en cours. 


Frédéric Rejol - Le Tivoli - 42820 
Ambierle. 


S'il est possible d’inhiber la touche 
"’QUIT” (voir rubrique trucs et astu- 
ces), nous n'avons pas de solution, 
en Basic TI, pour la touche 
?CLEAR’. 

Par contre, en Basic Etendu, il suffit 
d'utiliser l'instruction ‘ON BREAK 
NEXT”’. 


Je voudrais écrire, avec des lutins, le 
mot ‘LETTRES’, mais cela ‘coince’ 
après avoir affiché trois ou quatre let- 
tres. Pouvez-vous me donner la solu- 
tion. 


Jean-Claude Dadone - 23 Avenue 
de la Salis - 06600 Antibes 


Lorsque plus de 4 lutins se trouvent 
sur la même ligne d'écran, ceux qui 
ont le poids le plus fort (numéro) 
n'apparaissent pas. Il n’y a pas vrai- 
ment de solution; pour que le mot 
“LETTRES” soit affiché entièrement, 
il faudrait opter pour une disposition 
verticale ou en escalier. 


Vous pouvez consulter l’article de Ju- 
lien Thomas sur les lutins, publié 
dans le numéro précédent, pour ob- 
tenir de plus amples informations. 


L'initiation à l'informatique laisse trop 
de coté le “Hardware”! Si l’on consi- 
dère qu'il suffit de connaître la façon 
de programmer, en quelque langage 
que ce soit, on peut en conclure 
(avec un peu d'exagération) qu'un 
téléspectateur qui sait commander 
son téléviseur connait ‘la télévision”! 


A. Maillet - Lieu dit ‘’Guesdin” - 
17610 Chaniers 


Nous ne sommes pas vraiment d’ac- 
cord avec vous, et ne pensons pas 
qu'il soit indispensable de connaître 
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99 Magazine s'adresse... 


… aux débutants 


Vous venez d'acquérir un TI-99/4A. Tout est maintenant déballé et installé et vous êtes en train de découvrir 
qu'un ordinateur, ça ne marche pas tout seul... Il existe bien des brochures d'accompagnement, mais elles ne sont pas 
toujours rédigées de façon claire. En outre, le seul renseignement dont vous avez besoin en ce moment ne s’y trouve 
peut-être pas. 

99” vous apporte chaque trimestre de nombreux renseignements, des programmes complets, des exemples. 
Déjà, notre premier numéro comporte d'importants articles d'initiation au Basic ou de présentation de programmes. 

De plus, 99” édite avec chaque numéro une cassette regroupant tous les programmes du numéro. Vous 
pouvez ainsi utiliser des programmes que vous y avez vus, même si vous n'avez pas complètement compris le listing. 
En effet, vous savez bien utiliser des jeux ou des programmes de gestion de fichiers sans pour autant être capables de 
comprendre intégralement le listing de ces programmes. 


… aux habitués 


Malgré l'apparition récente du TI-99 sur le marché européen, vous êtes déjà nombreux qui, habitués, maîtrisez 
bien l’un des Basics. Nous analysons pour vous et testons les nouveaux produits, logiciels et matériels. Nous vous 
donnons des idées pour résoudre des problèmes qui vous tracassaient depuis longtemps. 


En étudiant les nombreux programmes que nous vous proposons, vous pourrez perfectionner votre connais- 
sance du Basic simple et du Basic Etendu mais aussi, à partir des prochains numéros, vous initier au Pascal et à 
l'assembleur. Dans pratiquement chaque numéro de 99”, vous trouverez des recettes ou des programmes pour mieux 
programmer et utiliser votre TI-99. 


.. aux experts 


Vous êtes déjà quelques-uns à mériter le titre d'experts. Chacun d’entre vous connaît plus particulièrement un 
langage ou un domaine d'application. 99”, en publiant les écrits d’autres experts, peut vous en apprendre plus, que 
ce soit dans votre domaine de prédilection ou dans d’autres domaines. 


… à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées ou des programmes à transmettre 
aux autres. Faites nous les parvenir’afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal est de 
nous envoyer une cassette avec vos programmes et un article dactylographié. N'oubliez pas d'indiquer votre adresse et 


votre numéro de téléphone ! 


BULLETIN D’ABONNEMENT 


Je désire recevoir pour le N° []de 99 magazine 
[] le numéro avec cassette 
[_]le numéro sans cassette 
[_] la cassette seule 


Je désire m'abonner pour 4 numéros 
à partir du N° [ ] 
[_] avec cassette 329 F TIC 
[_] sans cassette 135 FTIC 


Ces tarifs comprennent l'envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : + 40 F pour un abonnement - + 10 F pour un numéro seul 


Envoyez ce bon de commande et votre règlement à : 
Editions MEV - 64-70, rue des Chantiers - 78000 Versailles 
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Nous ne citerons que le cas de Von 
Neumann, qui fut à la base de tous 
les algorithmes utilisés sur les ordina- 


teurs classiques (comme le TI), sans 
être pour autant spécialiste de l’élec- 
tronique. pal 


Suite de la page 65 
la structure d’un ordinateur pour 
l'utiliser ou le programmer. 


Petites annonces (gratuites) 


Recherche programmes sur  K7. 
Echange prolongé. Hervé Kratiroff - 
60, rue Mazgnoo - 69003 Lyon - 16 
(70) 871.02.95. 


Vends cassettes : La tombe du sor- 
cier, Tractors folies (Basic Etendu), 
Golf et Basic Etendu par soi-même. 
David Germain-Dobin - 137 Avenue 
de Wagram 75017 Paris - 
766.37.81. 


Recherche logiciels, modules et pro- 
grammes sur cassettes. Olivier Ser- 
reault - Chemin du plan de Leydet - 
04200 Sisteron. 


Recherche interface RS232 et Termi- 
nal emulator 2. Echange trucs et pro- 
grammes assembleur, Basic ou Basic 
Etendu. Philippe Pair - 6 Avenue St 
Sébastien - 54600 Villers-les-Nancy - 
(8) 327.74.73. 


Vends 200 F cassette MASH neuve. 
16 (58) 43.64.30. 


Recherche module ‘Terminal Emula- 
teur Il”. Omar Belmokar - 6 Allée S. 
de Brosse - 93150 Le Blanc Mesnil. 


Achète carte contrôleur, carte 
RS232, lecteur de disquette intégré. 
Yves Jacquet - 124 rue de la 
Convention 75015 Paris 
558.10.07. 


Achète pépiphérique PHP 1200. P. 
Loraux - 2 rue Legraverend - 75012 
Paris - (1) 345.38.84. 


Achète boîtier d’ext., carte 32K, carte 


Ticazur, club d’une cinquantaine de 
membres, régi par la loi de 1901, 
existe depuis Juin 1983 et est consa- 
cré au TI-99/4A. 


Jean Marin a assuré, durant la pre- 
mière année, un cours d'initiation au 
Basic selon une méthode originale 
d'enseignement de dix cassettes as- 
surant 20 heures de cours. 


Ce cours est repris depuis début mai 
par Paul Pacotto, professeur d’élec- 
tronique à l'IUT de nice, de 16 à 
17H00 tous les samedis au Cercle 
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RS232, contrôleur et lecteur de. dis- 
quettes, de toute urgence. Christo- 
phe Auzzino - Maison neuve Guille- 
vin - Avenue de Bretagne - 56510 St 
Pierre-Quiberon. 


Recherche module Adventure” ainsi 
que synthétiseur de paioles - Marc 
Mesguini - 358.34.04. 


Recherche Editeur/Assembleur avec 
documentation Menasse - (24) 
40.12.19 à 08500 Revin. 


Recherche tous périphériques d’occa- 
sion, Basic Etendu, Mini-mémoire, 
modules de jeux - Daniel Bauwens - 
92, rue Delsamme - B-7060 Stepy 
Bracquenies - Belgique. 


Vends 2 modules éducation ayant 
très peu servi, au prix de 110 F cha- 
que: Dragon savant et Addition 
canon - (6) 010.07.72 après 18h. 


Achète module “Basic Etendu”. Re- 
cherche programmes mathématiques 
et biologie. Jean-Yves Nicolas - 24 
rue Troudet - 56310 Bubry. 


Achète module ‘Basic Edendu”. Jo- 
seph Caubisens - Résidence Lautrec 
- 10 rue Casteret - 64000 Pau. 


Achète bon prix : boîtier d'extension, 
carte 32 K et carte RS232. Jean 
Gaillard - 43 Allée Paul Gauguin - 
Cidex 8 - 94450 Limeil-Brevannes - 
569.01.76 après 20h. 


Recherche boîtier d'extension avec si 
possible la carte 32 K, pour une 
somme abordable. Christophe Roux 


- 4 Impasse des Cigols - 33320 Evysi- 
nes. 


Recherche module ‘’Basic Etendu” - 
Carte RS232 et éventuellement im- 
primante. Martin - (71) 50.39.29. 


Recherche module ‘Basic Etendu”. 
Patrick Bertin - 16 Place du Bois 
Perchix - 95220 Herblay. 


Achète Basic Etendu + manuel (si 
possible en français). Philippe - 73 
route de Sierck - Koenigsmacker - 
57110 Yutz - (8) 250.01.46. 


Recherche pour recopier ou acheter, 
manuel Basic Etendu en français. En 
échange, donne plein de program- 
mes. Jean-Jacques Denis - 16 (85) 
53:13:37. 


Vends TI-99/4A, boîtier d'extension, 
contrôleur, lecteur de disquettes, 
carte 32 Ko, Assembleur, manettes 
de jeux, 4 modules de jeux, disquet- 


tes + livres + programmes. Le tout : 
9000 F. 334.09.80 après 22h. 


Achète module ‘Terminal Emulator 
Il”. Bruno Momerency - 33 Avenue 
Paul Bert - 92190 Meudon - (1) 
534.85.13 après 18h. 


Echange Mini-mémoire contre Termi- 
nal Emulator Il. Jean-Pierre Diot - 47 
rue Jacquart - 51100 Reims. 


URGENT : Recherche cartouches, 
cassettes, jeux pour TI, ainsi que pé- 
riphériques. Thierry Ducatez - Rési- 
dence Provence - 2/51 rue Louis 
Bergot - 59155 Fâches Thumesnil - 
(20) 53.83.29. 


Le Club Ticazur 


Démocratique de la Colle-sur-Loup. 


De 17 à 18H00, des échanges sont 
organisés ainsi que des démonstra- 
tions d’autres langages ou ordina- 
teurs. 


De 18 à 19H00 se déroule, depuis le 
12 mai 1984, le nouveau cours de 
Jean Marin sur l’utilisation de la Mini- 
mémoire dont, grâce à ses longues 
heures de travail, aucune des possibi- 
lités, que ce soit à partir du Basic, 
avec EASY BUG ou en Assembleur, 
ne seront négligées. 


Sur le plan départemental, Ticazur 
est sans conteste le club le plus actif 
et, grâce à notre animateur principal, 
les limites du TI-99/4A reculent cha- 
que jour davantage. 


Gérard Baroni 

Président de Ticazur 
Siège social : 

Villa Héléna 

Les Campons 

06480 La Colle sur Loup 
(93) 22.63.16 











Vous y trouverez : px 


l'actualité et les 
tendances de 
l'informatique individuelle 
e les bancs d'essais 

des principaux matériels 
e des panoramas 

et des tests comparatifs 

e le point des grandes 


manifestations internationales 


e des articles d'initiation 
e des synthèses 

e des programmes 

e des interviews 


‘exemplaires’ e des conseils k; 


e des idées 
e des astuces 


22 FF chez votre 
marchand 
de journaux 
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